Commit bb5c9fe2 authored by POTTIER Francois's avatar POTTIER Francois
Browse files

Comment. And remove a temporary debugging call to printf.

parent 3babde85
......@@ -36,7 +36,7 @@ let lift_ident_name id =
let name = Ident.name id in
if name = "OkaStream" then "CFPrim" else (* TODO : improve *)
if Ident.persistent id
then (Printf.printf "require %s\n" name; name ^ "_ml")
then name ^ "_ml" (* TODO: also emit a Require directive on name ^ "_ml" *)
else "ML" ^ name
let rec lift_full_path = function
......
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