steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Slightly more efficient compilation of 'new'

db4
Slava Pestov 2009-04-22 21:26:22 -05:00
parent 8432c30ed1
commit d3cffcbee2
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/stack-checker/transforms/transforms.factor
View File

@ -113,11 +113,9 @@ M\ tuple-class boa t "no-compile" set-word-prop
\ new [ \ new [
dup tuple-class? [ dup tuple-class? [
dup inlined-dependency depends-on dup inlined-dependency depends-on
[ [ all-slots [ initial>> literalize ] map ]
[ all-slots [ initial>> literalize , ] each ] [ tuple-layout '[ _ <tuple-boa> ] ]
[ literalize , ] bi bi append
\ boa ,
] [ ] make
] [ drop f ] if ] [ drop f ] if
] 1 define-transform ] 1 define-transform