diff options
| author | Guillaume Melquiond | 2014-06-13 16:22:56 +0200 |
|---|---|---|
| committer | Guillaume Melquiond | 2014-06-13 16:22:56 +0200 |
| commit | 8e8b1672843040a8ee1109b2c470477c915d73cc (patch) | |
| tree | b3ce27674963d889729503a275b90eeb55ccbaaf | |
| parent | 505a6a2cb01eea3b4f60b9e9b3b583b56f1bd50b (diff) | |
Deprecate useless option -unsafe.
| -rw-r--r-- | lib/flags.ml | 15 | ||||
| -rw-r--r-- | lib/flags.mli | 3 | ||||
| -rw-r--r-- | toplevel/coqtop.ml | 2 |
3 files changed, 1 insertions, 19 deletions
diff --git a/lib/flags.ml b/lib/flags.ml index cd9d9d6900..5fba48dd62 100644 --- a/lib/flags.ml +++ b/lib/flags.ml @@ -162,21 +162,6 @@ let print_hyps_limit = ref (None : int option) let set_print_hyps_limit n = print_hyps_limit := n let print_hyps_limit () = !print_hyps_limit -(* A list of the areas of the system where "unsafe" operation - * has been requested *) - -module StringOrd = -struct - type t = string - let compare = String.compare -end - -module Stringset = Set.Make(StringOrd) - -let unsafe_set = ref Stringset.empty -let add_unsafe s = unsafe_set := Stringset.add s !unsafe_set -let is_unsafe s = Stringset.mem s !unsafe_set - (* Flags for external tools *) let browser_cmd_fmt = diff --git a/lib/flags.mli b/lib/flags.mli index 3bcea384eb..b5947c48f0 100644 --- a/lib/flags.mli +++ b/lib/flags.mli @@ -100,9 +100,6 @@ val with_extra_values : 'c list ref -> 'c list -> ('a -> 'b) -> 'a -> 'b val set_print_hyps_limit : int option -> unit val print_hyps_limit : unit -> int option -val add_unsafe : string -> unit -val is_unsafe : string -> bool - (** Options for external tools *) (** Returns string format for default browser to use from Coq or CoqIDE *) diff --git a/toplevel/coqtop.ml b/toplevel/coqtop.ml index edb03fb62b..1f4bd4bbfb 100644 --- a/toplevel/coqtop.ml +++ b/toplevel/coqtop.ml @@ -359,7 +359,6 @@ let parse_args arglist = |"-print-mod-uid" -> Flags.print_mod_uid := true; add_require (next ()) |"-require" -> add_require (next ()) |"-top" -> set_toplevel_name (dirpath_of_string (next ())) - |"-unsafe" -> add_unsafe (next ()) |"-with-geoproof" -> Coq_config.with_geoproof := get_bool opt (next ()) |"-main-channel" -> Spawned.main_channel := get_host_port opt (next()) |"-control-channel" -> Spawned.control_channel := get_host_port opt (next()) @@ -413,6 +412,7 @@ let parse_args arglist = |"-lazy-load-proofs" -> warning "Obsolete option \"-lazy-load-proofs\"." |"-dont-load-proofs" -> warning "Obsolete option \"-dont-load-proofs\"." |"-force-load-proofs" -> warning "Obsolete option \"-force-load-proofs\"." + |"-unsafe" -> warning "Obsolete option \"-unsafe\"."; ignore (next ()) (* Unknown option *) | s -> extras := s :: !extras |