diff options
author | Enrico Tassi <Enrico.Tassi@inria.fr> | 2018-04-17 10:12:17 +0200 |
---|---|---|
committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2018-04-19 11:32:07 +0200 |
commit | 2cf58e18f01fa379c5be3d3dddf41d8051fcc1cc (patch) | |
tree | cf41c91a05d682f323cda605066dcfa1816b4ac5 /toplevel/coqtop.ml | |
parent | ed5ec093c216bef6629657f69d7f94256e3ec009 (diff) |
[toplevel] let toploop_init change Coq options
Toplevels may want to modify for example the Stm flags,
which after #1108 are handled in a functional way.
Diffstat (limited to 'toplevel/coqtop.ml')
-rw-r--r-- | toplevel/coqtop.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/toplevel/coqtop.ml b/toplevel/coqtop.ml index 0dabed6b7..668f9b893 100644 --- a/toplevel/coqtop.ml +++ b/toplevel/coqtop.ml @@ -368,7 +368,7 @@ let init_color color_mode = let toploop_init = ref begin fun opts x -> let () = init_color opts.color in let () = CoqworkmgrApi.init !WorkerLoop.async_proofs_worker_priority in - x + opts, x end let print_style_tags opts = @@ -442,7 +442,7 @@ let init_toplevel arglist = let top_lp = Coqinit.toplevel_init_load_path () in List.iter Mltop.add_coq_path top_lp; Option.iter Mltop.load_ml_object_raw opts.toploop; - let extras = !toploop_init opts extras in + let opts, extras = !toploop_init opts extras in if not (CList.is_empty extras) then begin prerr_endline ("Don't know what to do with "^String.concat " " extras); prerr_endline "See -help for the list of supported options"; |