Deprecate useless option -unsafe.

2 files changed, 0 insertions, 18 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 *)