diff options
| author | Pierre-Marie Pédrot | 2019-11-29 15:38:20 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-12-09 14:05:53 +0100 |
| commit | 88f8f535084567d5d52d510802b3cee15c2b3503 (patch) | |
| tree | 532bf3c1e16369a8a47f4f309da4ca4cc617c24a /kernel/nativelambda.ml | |
| parent | de1beefc8786e8edc616f629a1ae3175a9af6d09 (diff) | |
Optimization: take advantage that we don't use arrays anymore in substitutions.
Diffstat (limited to 'kernel/nativelambda.ml')
| -rw-r--r-- | kernel/nativelambda.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/nativelambda.ml b/kernel/nativelambda.ml index 18f16f427d..b27c53ef0f 100644 --- a/kernel/nativelambda.ml +++ b/kernel/nativelambda.ml @@ -102,7 +102,7 @@ let decompose_Llam_Llet lam = let subst_id = subs_id 0 let lift = subs_lift let liftn = subs_liftn -let cons v subst = subs_cons([|v|], subst) +let cons v subst = subs_cons v subst let shift subst = subs_shft (1, subst) (* Linked code location utilities *) |