compiler.tree.tuple-unboxing: simpler checks.

2013-03-10 09:36:52 -07:00 · 2013-03-10 09:36:52 -07:00 · 229e85459e
parent b4ac67dd25
commit 229e85459e
1 changed files with 2 additions and 1 deletions
--- a/basis/compiler/tree/tuple-unboxing/tuple-unboxing.factor
+++ b/basis/compiler/tree/tuple-unboxing/tuple-unboxing.factor
@ -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 ;