diff options
Diffstat (limited to 'kernel/safe_typing.ml')
-rw-r--r-- | kernel/safe_typing.ml | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml index 66bc90789..3e9b646c1 100644 --- a/kernel/safe_typing.ml +++ b/kernel/safe_typing.ml @@ -657,9 +657,11 @@ let start_library dir senv = modvariant = LIBRARY; imports = senv.imports } -let export senv dir = +let export compilation_mode senv dir = let senv = - try join_safe_environment senv + try + if compilation_mode = Flags.BuildVi then senv (* FIXME: cleanup future*) + else join_safe_environment senv with e -> Errors.errorlabstrm "future" (Errors.print e) in let () = check_current_library dir senv in |