[r2004-04-21 07:35:38 by afrisch] Empty log message

Original author: afrisch
Date: 2004-04-21 07:35:38+00:00

driver/cduce.ml

@@ -298,10 +298,13 @@ ifdef ML_INTERFACE then
       close_out out;
     with Not_found -> ( 
       let name = fnam ^ ".mli" in
-      let file = List.find (
+      let has_cmi = List.exists (
 	fun dir -> Sys.file_exists ( Filename.concat dir name )
       ) !Librarian.obj_path in
-      if file <> "" then Format.eprintf "Warning: found %s.mli but no %s.cmi: forgotten compilation?@." fnam fnam;
+      if has_cmi then 
+	Format.eprintf 
+	  "Warning: found %s.mli but no %s.cmi: forgotten compilation?@." 
+	  fnam fnam;
     )
 else 
   let check_ml cu id out_dir out = ();;