From f6f3fb75e784afc804ad84579562c4b080572b27 Mon Sep 17 00:00:00 2001
From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Mon, 4 Feb 2013 22:38:43 +0000
Subject: [PATCH] Bug fixed: "open X" were not printed in .mli because streams
are destructive.
---
matita/components/ng_extraction/ocamlExtraction.ml | 1 +
1 file changed, 1 insertion(+)
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
--
2.39.2