From fed5fd7c507d45c5ce3ad8192e848c5e29f8ec66 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 26 Sep 2020 12:22:02 -0700
Subject: [PATCH] classes.tuple: speed up slots>tuple a bit.

Only get the initial values that are needed to supplement provided values.
---
 core/classes/tuple/tuple.factor | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/core/classes/tuple/tuple.factor b/core/classes/tuple/tuple.factor
index 8cc87a0306..ef2de58444 100644
--- a/core/classes/tuple/tuple.factor
+++ b/core/classes/tuple/tuple.factor
@@ -82,15 +82,13 @@ M: tuple class-of layout-of 2 slot { word } declare ; inline
         ] 2each
     ] if-bootstrapping ; inline
 
-: initial-values ( class -- seq )
-    all-slots [ initial>> ] map ; inline
-
 : pad-slots ( seq class -- seq' class )
-    [ initial-values ] keep
-    2over [ length ] bi@ 2dup > [
+    [ all-slots ] keep 2over [ length ] bi@ 2dup > [
         [ nip swap ] 2dip too-many-slots
     ] [
-        drop [ tail append ] curry dip
+        drop [
+            tail-slice [ [ initial>> ] map append ] unless-empty
+        ] curry dip
     ] if ; inline
 
 PRIVATE>
@@ -174,6 +172,9 @@ M: object final-class? drop f ;
 : define-boa-check ( class -- )
     dup boa-check-quot "boa-check" set-word-prop ;
 
+: initial-values ( class -- seq )
+    all-slots [ initial>> ] map ; inline
+
 : tuple-prototype ( class -- prototype )
     [ initial-values ] keep over [ ] any?
     [ slots>tuple ] [ 2drop f ] if ;