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

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

Original author: afrisch
Date: 2004-04-21 07:35:38+00:00
parent ece90d2d
...@@ -298,10 +298,13 @@ ifdef ML_INTERFACE then ...@@ -298,10 +298,13 @@ ifdef ML_INTERFACE then
close_out out; close_out out;
with Not_found -> ( with Not_found -> (
let name = fnam ^ ".mli" in let name = fnam ^ ".mli" in
let file = List.find ( let has_cmi = List.exists (
fun dir -> Sys.file_exists ( Filename.concat dir name ) fun dir -> Sys.file_exists ( Filename.concat dir name )
) !Librarian.obj_path in ) !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 else
let check_ml cu id out_dir out = ();; let check_ml cu id out_dir out = ();;
......
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