diff options
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 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. *) |