diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-10-28 14:44:57 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-10-28 14:44:57 +0000 |
| commit | 8790f667db66efd92333ddf1e4344e8803ef078d (patch) | |
| tree | 7167eacc2c16fdbd9d9c96e02ef46916afd93fd0 /library | |
| parent | bac707973955ef64eadae24ea01e029a5394626e (diff) | |
Options -strongly-constructive et -strongly-classical
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4727 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library')
| -rw-r--r-- | library/global.ml | 2 | ||||
| -rw-r--r-- | library/global.mli | 2 |
2 files changed, 3 insertions, 1 deletions
diff --git a/library/global.ml b/library/global.ml index 8b61c9a4a..c2c42159b 100644 --- a/library/global.ml +++ b/library/global.ml @@ -68,7 +68,7 @@ let add_module = add_thing (fun _ -> add_module) () let add_constraints c = global_env := add_constraints c !global_env - +let set_engagement c = global_env := set_engagement c !global_env let start_module id params mtyo = let l = label_of_id id in diff --git a/library/global.mli b/library/global.mli index 72d3731df..cd7a90e18 100644 --- a/library/global.mli +++ b/library/global.mli @@ -49,6 +49,8 @@ val add_modtype : identifier -> module_type_entry -> kernel_name val add_constraints : constraints -> unit +val set_engagement : Environ.engagement -> unit + (*s Interactive modules and module types *) (* Both [start_*] functions take the [dir_path] argument to create a [mod_self_id]. This should be the name of the compilation unit. *) |