Commit 65eb3d39 authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2004-05-16 13:00:13 by jdemouth] Desole pour l'oubli

Original author: jdemouth
Date: 2004-05-16 13:00:13+00:00
parent 9dd6f30e
...@@ -292,7 +292,7 @@ ifdef ML_INTERFACE then ...@@ -292,7 +292,7 @@ ifdef ML_INTERFACE then
Ml_checker.run ml_cu cd_cu; Ml_checker.run ml_cu cd_cu;
let out = open_out ( Filename.concat out_dir (cu ^ ".ml") ) in let out = open_out ( Filename.concat out_dir (cu ^ ".ml") ) in
let fmt = Format.formatter_of_out_channel out in let fmt = Format.formatter_of_out_channel out in
Ml_generator.ML.generate fmt ml_cu cd_cu; Ml_generator.ML.generate fmt cu ml_cu cd_cu;
close_out out; close_out out;
with Not_found -> ( with Not_found -> (
let name = fnam ^ ".mli" in let name = fnam ^ ".mli" in
......
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