diff options
| author | Pierre-Marie Pédrot | 2020-10-11 17:40:01 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-10-11 17:48:56 +0200 |
| commit | eb5a67de1fc586acc588d5c61c84df670284f054 (patch) | |
| tree | 67d4b0767fb6796fc911f1123e8d93d378506326 /kernel/nativeconv.ml | |
| parent | 9a026fcaeb3fa2678b9c93da8204f9f1ddcc0b31 (diff) | |
Pick the universe graph out of the environment in conversion API.
Diffstat (limited to 'kernel/nativeconv.ml')
| -rw-r--r-- | kernel/nativeconv.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/kernel/nativeconv.ml b/kernel/nativeconv.ml index 3543168175..fc6afb79d4 100644 --- a/kernel/nativeconv.ml +++ b/kernel/nativeconv.ml @@ -150,10 +150,10 @@ let warn_no_native_compiler = (fun () -> strbrk "Native compiler is disabled," ++ strbrk " falling back to VM conversion test.") -let native_conv_gen pb sigma env graph univs t1 t2 = +let native_conv_gen pb sigma env univs t1 t2 = if not (typing_flags env).Declarations.enable_native_compiler then begin warn_no_native_compiler (); - Vconv.vm_conv_gen pb env graph univs t1 t2 + Vconv.vm_conv_gen pb env univs t1 t2 end else let ml_filename, prefix = get_ml_filename () in @@ -179,4 +179,4 @@ let native_conv cv_pb sigma env t1 t2 = let state = (univs, checked_universes) in let t1 = Term.it_mkLambda_or_LetIn t1 (Environ.rel_context env) in let t2 = Term.it_mkLambda_or_LetIn t2 (Environ.rel_context env) in - let _ = native_conv_gen cv_pb sigma env univs state t1 t2 in () + let _ = native_conv_gen cv_pb sigma env state t1 t2 in () |