debian version 0.0.6-6

[helm.git] / helm / ocaml / tex_cic_textual_parser / texCicTextualParserContext.ml

diff --git a/helm/ocaml/tex_cic_textual_parser/texCicTextualParserContext.ml b/helm/ocaml/tex_cic_textual_parser/texCicTextualParserContext.ml
index 28581bc5875f5e1f5aff9f4a6394eea090601ed6..e14259589c2ea4bc330815e150d8fd42eaeb7d78 100644 (file)
--- a/helm/ocaml/tex_cic_textual_parser/texCicTextualParserContext.ml
+++ b/helm/ocaml/tex_cic_textual_parser/texCicTextualParserContext.ml
@@ -28,9 +28,11 @@ let main ~context ~metasenv lexer lexbuf =
  TexCicTextualParser0.binders := context ;
  TexCicTextualParser0.metasenv := metasenv ;
  let dom,mk_term = TexCicTextualParser.main lexer lexbuf in
-  dom,
-   function interp ->
-    let term = mk_term interp in 
-    let metasenv = !TexCicTextualParser0.metasenv in
-     metasenv,term
+  let metasenv' = !TexCicTextualParser0.metasenv in
+   dom,
+    function interp ->
+     TexCicTextualParser0.metasenv := metasenv' ;
+     let term = mk_term interp in 
+     let metasenv = !TexCicTextualParser0.metasenv in
+      metasenv,term
 ;;