From 47c1c7976a6830227edd8e125f6993ae4e15f6a6 Mon Sep 17 00:00:00 2001
From: letouzey
Date: Thu, 26 Apr 2012 09:54:13 +0000
Subject: Program: avoid staying in program mode after a failed Program command

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15247 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 parsing/g_vernac.ml4 | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'parsing')

diff --git a/parsing/g_vernac.ml4 b/parsing/g_vernac.ml4
index 336d1e1786..320ca4eb05 100644
--- a/parsing/g_vernac.ml4
+++ b/parsing/g_vernac.ml4
@@ -80,10 +80,10 @@ GEXTEND Gram
   vernac_aux:
     (* Better to parse "." here: in case of failure (e.g. in coerce_to_var), *)
     (* "." is still in the stream and discard_to_dot works correctly         *)
-    [ [ IDENT "Program"; g = gallina; "." -> program_flag := true; g
-      | IDENT "Program"; g = gallina_ext; "." -> program_flag := true; g
-      | g = gallina; "." -> g
-      | g = gallina_ext; "." -> g
+    [ [ IDENT "Program"; g = gallina; "." -> Flags.program_cmd := true; g
+      | IDENT "Program"; g = gallina_ext; "." -> Flags.program_cmd := true; g
+      | g = gallina; "." -> Flags.program_cmd := false; g
+      | g = gallina_ext; "." -> Flags.program_cmd := false; g
       | c = command; "." -> c
       | c = syntax; "." -> c
       | "["; l = LIST1 located_vernac; "]"; "." -> VernacList l
-- 
cgit v1.2.3