diff options
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 29e01bac39..2f41c772ab 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 |