[r2004-06-26 19:41:55 by afrisch] Style

Original author: afrisch
Date: 2004-06-26 19:41:55+00:00

cdo2cmo/ml_ocaml.ml

@@ -477,8 +477,10 @@ and translate_type_constr cduce lident map name list =
     let head = ML.Ident.name ( ML.Path.head name ) in
     let file = head ^ ".cmi" in
     let file = ML.Misc.find_in_path_uncap !ML.Config.load_path file in
+    Printf.eprintf "Found file %s\n" file;
     let sign = ML.Env.read_signature head file in
     let node = find_node name in
+    (* How would that be different from the previous call ?? -- AF *)
     ML_ident ( name, translate_parameters cduce lident map list, node )
   
 and translate_type_desc cduce lident map id = function