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/vmlambda.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'kernel/vmlambda.ml')

diff --git a/kernel/vmlambda.ml b/kernel/vmlambda.ml
index 9cca204e8c..390fa58883 100644
--- a/kernel/vmlambda.ml
+++ b/kernel/vmlambda.ml
@@ -179,7 +179,7 @@ let decompose_Llam 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)
 
 (* A generic map function *)
-- 
cgit v1.2.3