diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-04-26 09:54:13 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-04-26 09:54:13 +0000 |
| commit | 47c1c7976a6830227edd8e125f6993ae4e15f6a6 (patch) | |
| tree | 8019ec3e42bb9cdcfd95d89b621d616921fcfdc5 /lib/flags.ml | |
| 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 'lib/flags.ml')
| -rw-r--r-- | lib/flags.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/flags.ml b/lib/flags.ml index 29e01bac3..2f41c772a 100644 --- a/lib/flags.ml +++ b/lib/flags.ml @@ -66,6 +66,11 @@ let auto_intros = ref true let make_auto_intros flag = auto_intros := flag let is_auto_intros () = version_strictly_greater V8_2 && !auto_intros +(** [program_cmd] indicates that the current command is a Program one. + [program_mode] tells that Program mode has been activated, either + globally via [Set Program] or locally via the Program command prefix. *) + +let program_cmd = ref false let program_mode = ref false let is_program_mode () = !program_mode |