diff options
-rw-r--r-- | checker/checker.ml | 2 | ||||
-rw-r--r-- | lib/flags.ml | 2 | ||||
-rw-r--r-- | lib/flags.mli | 2 | ||||
-rw-r--r-- | toplevel/coqtop.ml | 2 |
4 files changed, 0 insertions, 8 deletions
diff --git a/checker/checker.ml b/checker/checker.ml index e981cf8fe..280f34656 100644 --- a/checker/checker.ml +++ b/checker/checker.ml @@ -316,8 +316,6 @@ let parse_args argv = | ("-o" | "--output-context") :: rem -> Check_stat.output_context := true; parse rem - | "-no-hash-consing" :: rem -> Flags.hash_cons_proofs := false; parse rem - | "-admit" :: s :: rem -> add_admit s; parse rem | "-admit" :: [] -> usage () diff --git a/lib/flags.ml b/lib/flags.ml index 6c67cb237..c6b1cdd7d 100644 --- a/lib/flags.ml +++ b/lib/flags.ml @@ -87,8 +87,6 @@ let is_auto_intros () = version_strictly_greater V8_2 && !auto_intros let program_mode = ref false let is_program_mode () = !program_mode -let hash_cons_proofs = ref true - let warn = ref true let make_warn flag = warn := flag; () let if_warn f x = if !warn then f x diff --git a/lib/flags.mli b/lib/flags.mli index 6325d7cd4..797ee3875 100644 --- a/lib/flags.mli +++ b/lib/flags.mli @@ -58,8 +58,6 @@ val is_program_mode : unit -> bool val make_warn : bool -> unit val if_warn : ('a -> unit) -> 'a -> unit -val hash_cons_proofs : bool ref - (** Temporary activate an option (to activate option [o] on [f x y z], use [with_option o (f x y) z]) *) val with_option : bool ref -> ('a -> 'b) -> 'a -> 'b diff --git a/toplevel/coqtop.ml b/toplevel/coqtop.ml index 1f0ccf0fc..653dd2965 100644 --- a/toplevel/coqtop.ml +++ b/toplevel/coqtop.ml @@ -329,8 +329,6 @@ let parse_args arglist = | "-v7" :: rem -> error "This version of Coq does not support v7 syntax" | "-v8" :: rem -> parse rem - | "-no-hash-consing" :: rem -> Flags.hash_cons_proofs := false; parse rem - | "-ideslave" :: rem -> ide_slave := true; parse rem | "-filteropts" :: rem -> filter_opts := true; parse rem |