diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-07-13 00:21:31 +0200 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-07-13 01:16:31 +0200 |
commit | 01f230dcce3931e1a74b603b0530448af53cac3c (patch) | |
tree | 9c0971c3feea4c1f07ba3e866456e21b610f41b2 /kernel/nativecode.ml | |
parent | cbc85b215c398d0475d8347ce4d37bfb4d37d883 (diff) |
Pass a proper environment to Nativelambda.lambda_of_constr.
No need to roll up a new data structure when Environment has O(log n) add
and lookup of rel definitions.
Diffstat (limited to 'kernel/nativecode.ml')
-rw-r--r-- | kernel/nativecode.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/nativecode.ml b/kernel/nativecode.ml index 39f7de942..8d69eacbc 100644 --- a/kernel/nativecode.ml +++ b/kernel/nativecode.ml @@ -1884,7 +1884,7 @@ let compile_constant env sigma prefix ~interactive con cb = let t = Mod_subst.force_constr t in let code = lambda_of_constr env sigma t in if !Flags.debug then Feedback.msg_debug (Pp.str "Generated lambda code"); - let is_lazy = is_lazy prefix t in + let is_lazy = is_lazy env prefix t in let code = if is_lazy then mk_lazy code else code in let name = if interactive then LinkedInteractive prefix |