diff options
| author | letouzey | 2012-04-26 09:54:13 +0000 |
|---|---|---|
| committer | letouzey | 2012-04-26 09:54:13 +0000 |
| commit | 47c1c7976a6830227edd8e125f6993ae4e15f6a6 (patch) | |
| tree | 8019ec3e42bb9cdcfd95d89b621d616921fcfdc5 /parsing | |
| parent | 0204cf4237622468df313d77873020e924247395 (diff) | |
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
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/g_vernac.ml4 | 8 |
1 files changed, 4 insertions, 4 deletions
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 |