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.mli | |
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.mli')
-rw-r--r-- | lib/flags.mli | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/flags.mli b/lib/flags.mli index 94c8795d4..b96bd402d 100644 --- a/lib/flags.mli +++ b/lib/flags.mli @@ -47,6 +47,11 @@ val if_verbose : ('a -> unit) -> 'a -> unit val make_auto_intros : bool -> unit val is_auto_intros : unit -> bool +(** [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. *) + +val program_cmd : bool ref val program_mode : bool ref val is_program_mode : unit -> bool |