From: Claudio Sacerdoti Coen Date: Mon, 4 Feb 2013 22:38:43 +0000 (+0000) Subject: Bug fixed: "open X" were not printed in .mli because streams are destructive. X-Git-Tag: make_still_working~1272 X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=f6f3fb75e784afc804ad84579562c4b080572b27;p=helm.git Bug fixed: "open X" were not printed in .mli because streams are destructive. --- diff --git a/matita/components/ng_extraction/ocamlExtraction.ml b/matita/components/ng_extraction/ocamlExtraction.ml index a18d8a954..6465aa86d 100644 --- a/matita/components/ng_extraction/ocamlExtraction.ml +++ b/matita/components/ng_extraction/ocamlExtraction.ml @@ -41,6 +41,7 @@ let print_open status uris = List.map (fun uri -> Filename.basename (NUri.string_of_uri uri)) uris in let status,cmds = map_status status Ocaml.pp_open fnames in List.iter (print_ppcmds status ~in_ml:true) cmds; + let status,cmds = map_status status Ocaml.pp_open fnames in List.iter (print_ppcmds status ~in_ml:false) cmds; status ) status