compiler.tree.tuple-unboxing: simpler checks.

db4
John Benediktsson 2013-03-10 09:36:52 -07:00
parent b4ac67dd25
commit 229e85459e
1 changed files with 2 additions and 1 deletions

View File

@ -169,5 +169,6 @@ M: #alien-node unbox-tuples* dup in-d>> assert-not-unboxed ;
M: #alien-callback unbox-tuples* ;
: 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 ;