From 229e85459ef23423c49f2d0d819a68f3eef85a32 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Sun, 10 Mar 2013 09:36:52 -0700 Subject: [PATCH] compiler.tree.tuple-unboxing: simpler checks. --- basis/compiler/tree/tuple-unboxing/tuple-unboxing.factor | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/basis/compiler/tree/tuple-unboxing/tuple-unboxing.factor b/basis/compiler/tree/tuple-unboxing/tuple-unboxing.factor index 8eb4851f03..075b935343 100644 --- 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 ;