Slightly more efficient compilation of 'new'

2009-04-22 21:26:22 -05:00 · 2009-04-22 21:26:22 -05:00 · d3cffcbee2
parent 8432c30ed1
commit d3cffcbee2
1 changed files with 3 additions and 5 deletions
--- 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