diff options
author | Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2014-06-13 16:22:56 +0200 |
---|---|---|
committer | Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2014-06-13 16:22:56 +0200 |
commit | 8e8b1672843040a8ee1109b2c470477c915d73cc (patch) | |
tree | b3ce27674963d889729503a275b90eeb55ccbaaf /lib/flags.ml | |
parent | 505a6a2cb01eea3b4f60b9e9b3b583b56f1bd50b (diff) |
Deprecate useless option -unsafe.
Diffstat (limited to 'lib/flags.ml')
-rw-r--r-- | lib/flags.ml | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/lib/flags.ml b/lib/flags.ml index cd9d9d690..5fba48dd6 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 = |