diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2015-12-14 13:19:09 +0100 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2015-12-14 13:19:09 +0100 |
| commit | c377938a8f87d9c0517aa0c7d4564323951a2133 (patch) | |
| tree | 8c4a014e4b55fc556cf51344b7a4d1ef473e19ad /toplevel | |
| parent | 81ef6a6dc1bfc3db0e7df3e32b6446fc4d2c4008 (diff) | |
Flag -compat 8.4 now loads Coq.Compat.Coq84.
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/coqtop.ml | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/toplevel/coqtop.ml b/toplevel/coqtop.ml index 72966a4ad..5937fd5c7 100644 --- a/toplevel/coqtop.ml +++ b/toplevel/coqtop.ml @@ -196,6 +196,11 @@ let require () = let map dir = Qualid (Loc.ghost, qualid_of_string dir) in Vernacentries.vernac_require None (Some false) (List.rev_map map !require_list) +let add_compat_require v = + match v with + | Flags.V8_4 -> add_require "Coq.Compat.Coq84" + | _ -> () + let compile_list = ref ([] : (bool * string) list) let glob_opt = ref false @@ -475,7 +480,7 @@ let parse_args arglist = |"-async-proofs-private-flags" -> Flags.async_proofs_private_flags := Some (next ()); |"-worker-id" -> set_worker_id opt (next ()) - |"-compat" -> Flags.compat_version := get_compat_version (next ()) + |"-compat" -> let v = get_compat_version (next ()) in Flags.compat_version := v; add_compat_require v |"-compile" -> add_compile false (next ()) |"-compile-verbose" -> add_compile true (next ()) |"-dump-glob" -> Dumpglob.dump_into_file (next ()); glob_opt := true |