From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Thu, 22 Jan 2004 15:12:11 +0000 (+0000)
Subject: The parser have been made more functional with a trick.
X-Git-Tag: V_0_5_1_4~15
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=834b2ded0b9db67e0a19139546ac1f267de5544f;p=helm.git

The parser have been made more functional with a trick.
Now there is no more need to save and restore the metasenv.
---

diff --git a/helm/ocaml/cic_textual_parser/cicTextualParserContext.ml b/helm/ocaml/cic_textual_parser/cicTextualParserContext.ml
index 6901bd48c..c9dfe664b 100644
--- a/helm/ocaml/cic_textual_parser/cicTextualParserContext.ml
+++ b/helm/ocaml/cic_textual_parser/cicTextualParserContext.ml
@@ -28,9 +28,11 @@ let main ~context ~metasenv lexer lexbuf =
  CicTextualParser0.binders := context ;
  CicTextualParser0.metasenv := metasenv ;
  let dom,mk_term = CicTextualParser.main lexer lexbuf in
-  dom,
-   function interp ->
-    let term = mk_term interp in 
-    let metasenv = !CicTextualParser0.metasenv in
-     metasenv,term
+  let metasenv' = !CicTextualParser0.metasenv in
+   dom,
+    function interp ->
+     CicTextualParser0.metasenv := metasenv' ;
+     let term = mk_term interp in 
+     let metasenv = !CicTextualParser0.metasenv in
+      metasenv,term
 ;;
diff --git a/helm/ocaml/tex_cic_textual_parser/texCicTextualParserContext.ml b/helm/ocaml/tex_cic_textual_parser/texCicTextualParserContext.ml
index 28581bc58..e14259589 100644
--- 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
 ;;