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

Original author: jdemouth
Date: 2004-03-11 14:23:07+00:00

cdo2cmo/ml_ocaml.ml

@@ -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 ->