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

compiler.tree.tuple-unboxing: simpler checks.

John Benediktsson 2013-03-10 09:36:52 -07:00
parent 5fabc0c4d7
commit 76b9220bfa
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/compiler/tree/tuple-unboxing/tuple-unboxing.factor
View File

@ -169,5 +169,6 @@ M: #alien-node unbox-tuples* dup in-d>> assert-not-unboxed ;
M: #alien-callback unbox-tuples* ; M: #alien-callback unbox-tuples* ;
: unbox-tuples ( nodes -- nodes ) : unbox-tuples ( nodes -- nodes )
(allocation) escaping-allocations get assoc-diff assoc-empty? (allocation) escaping-allocations get
[ nip key? ] curry assoc-all?
[ [ unbox-tuples* ] map-nodes ] unless ; [ [ unbox-tuples* ] map-nodes ] unless ;