diff options
| -rw-r--r-- | toplevel/toploop.ml | 3 | ||||
| -rw-r--r-- | toplevel/topmain.ml | 1 | ||||
| -rw-r--r-- | utils/clflags.ml | 1 |
3 files changed, 4 insertions, 1 deletions
diff --git a/toplevel/toploop.ml b/toplevel/toploop.ml index 1e2037d5d..6757abf34 100644 --- a/toplevel/toploop.ml +++ b/toplevel/toploop.ml @@ -339,7 +339,8 @@ let read_interactive_input = ref read_input_default let refill_lexbuf buffer len = if !got_eof then (got_eof := false; 0) else begin let prompt = - if !first_line then "# " + if !Clflags.noprompt then "" + else if !first_line then "# " else if Lexer.in_comment () then "* " else " " in diff --git a/toplevel/topmain.ml b/toplevel/topmain.ml index cca331e8a..981b5cb83 100644 --- a/toplevel/topmain.ml +++ b/toplevel/topmain.ml @@ -54,6 +54,7 @@ let main () = "-labels", Arg.Clear classic, " Labels commute (default)"; "-noassert", Arg.Set noassert, " Do not compile assertion checks"; "-nolabels", Arg.Set classic, " Ignore labels and do not commute"; + "-noprompt", Arg.Set noprompt, " Suppress all prompts"; "-nostdlib", Arg.Set no_std_include, " do not add default directory to the list of include directories"; "-principal", Arg.Set principal, " Check principality of type inference"; diff --git a/utils/clflags.ml b/utils/clflags.ml index a58d8954b..4d7987565 100644 --- a/utils/clflags.ml +++ b/utils/clflags.ml @@ -38,6 +38,7 @@ and use_threads = ref false (* -thread *) and use_vmthreads = ref false (* -vmthread *) and noassert = ref false (* -noassert *) and verbose = ref false (* -verbose *) +and noprompt = ref false (* -noprompt *) and use_prims = ref "" (* -use-prims ... *) and use_runtime = ref "" (* -use-runtime ... *) and principal = ref false (* -principal *) |