From 88f8f535084567d5d52d510802b3cee15c2b3503 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Fri, 29 Nov 2019 15:38:20 +0100
Subject: Optimization: take advantage that we don't use arrays anymore in
 substitutions.

---
 kernel/nativelambda.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'kernel/nativelambda.ml')

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 *)
-- 
cgit v1.2.3