diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/flags.ml | 15 | ||||
| -rw-r--r-- | lib/flags.mli | 3 |
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 *) |