From 8790f667db66efd92333ddf1e4344e8803ef078d Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 28 Oct 2003 14:44:57 +0000
Subject: Options -strongly-constructive et -strongly-classical

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4727 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 library/global.ml  | 2 +-
 library/global.mli | 2 ++
 2 files changed, 3 insertions(+), 1 deletion(-)

(limited to 'library')

diff --git a/library/global.ml b/library/global.ml
index 8b61c9a4a8..c2c42159be 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 72d3731df2..cd7a90e18b 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. *)
-- 
cgit v1.2.3