diff options
| author |  filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 1999-12-01 17:34:36 +0000 |
|---|---|---|
| committer | filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 1999-12-01 17:34:36 +0000 |
| commit | 74f6dceaab0146085e8ac48f9976665026099555 (patch) | |
| tree | 17aa9e493ac73397fd214b13e46e7f7204f814e1 /lib/options.ml | |
| parent | 11b3d7716aa730a6b299e813ef6a711c82dadb5a (diff) | |
poursuite de Vernacentries
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@178 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib/options.ml')
| -rw-r--r-- | lib/options.ml | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lib/options.ml b/lib/options.ml index c4afa1e39..c0f14ee30 100644 --- a/lib/options.ml +++ b/lib/options.ml @@ -1,6 +1,8 @@ (* $Id$ *) +open Util + let batch_mode = ref false let debug = ref false @@ -41,3 +43,10 @@ let without_mes_ambig f x = try make_mes_ambig false; let rslt = f x in (make_mes_ambig old; rslt) with e -> (make_mes_ambig old; raise e) + +(* A list of the areas of the system where "unsafe" operation + * has been requested *) +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 + |