Slightly more efficient compilation of 'new'

diff --git a/basis/stack-checker/transforms/transforms.factor b/basis/stack-checker/transforms/transforms.factor
index 2e66d7d7283419eeccd5f56547c685e2de069074..955399b00b1dd38bedb70b8e905f58365b3547ac 100755 (executable)
--- a/basis/stack-checker/transforms/transforms.factor
+++ b/basis/stack-checker/transforms/transforms.factor
@@ -113,11 +113,9 @@ M\ tuple-class boa t "no-compile" set-word-prop
 \ new [
     dup tuple-class? [
         dup inlined-dependency depends-on
-        [
-            [ all-slots [ initial>> literalize , ] each ]
-            [ literalize , ] bi
-            \ boa ,
-        ] [ ] make
+        [ all-slots [ initial>> literalize ] map ]
+        [ tuple-layout '[ _ <tuple-boa> ] ]
+        bi append
     ] [ drop f ] if
 ] 1 define-transform