diff options
| author | coqbot-app[bot] | 2020-12-09 18:01:37 +0000 |
|---|---|---|
| committer | GitHub | 2020-12-09 18:01:37 +0000 |
| commit | 4fbc04b0fe0b89edfe35438d01d3b664fc21e6f8 (patch) | |
| tree | 7ae1df67aecdccd63d86f251306e2707a07f8bc9 /kernel/nativelambda.ml | |
| parent | 9e0ca704fa8273a8337ff9e118d2d08620af8962 (diff) | |
| parent | e0a943d40c6749e602421ac89059e0d6caf57518 (diff) | |
Merge PR #13537: More efficient implementation for substitutions.
Reviewed-by: SkySkimmer
Ack-by: gares
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 *) |