Commit 66796819 authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2004-03-11 14:23:07 by jdemouth] Quelques mises au point.

Original author: jdemouth
Date: 2004-03-11 14:23:07+00:00
parent 90215a76
......@@ -381,11 +381,15 @@ and load_module env name =
let _ = translate_signature ( Env.external_env env name ) sign in ()
and find_file name =
try
List.find (
fun dir -> Sys.file_exists ( Filename.concat dir name )
) !Librarian.obj_path
with Not_found -> error ( File_not_found name )
let dir =
try
List.find (
fun dir -> Sys.file_exists ( Filename.concat dir name )
) !Librarian.obj_path
with Not_found -> error ( File_not_found name )
in
if dir = "" then error ( File_not_found name );
Filename.concat dir name
and translate_tdesc env id = function
| ML.Types.Tvar ->
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment