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

Original author: jdemouth
Date: 2004-05-16 13:00:13+00:00

driver/cduce.ml

@@ -292,7 +292,7 @@ ifdef ML_INTERFACE then
       Ml_checker.run ml_cu cd_cu;
       let out = open_out ( Filename.concat out_dir (cu ^ ".ml") ) 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;
     with Not_found -> ( 
       let name = fnam ^ ".mli" in