assocs.extras: Move some often-used words to core

[factor.git] / basis / compiler / tree / tuple-unboxing / tuple-unboxing.factor

diff --git a/basis/compiler/tree/tuple-unboxing/tuple-unboxing.factor b/basis/compiler/tree/tuple-unboxing/tuple-unboxing.factor
index 3d599b1a174d089648ed71faad14f0c8f0e04503..a622d5aeb0cd0e3d0c841c6358175b1ea2df5332 100644 (file)
--- a/basis/compiler/tree/tuple-unboxing/tuple-unboxing.factor
+++ b/basis/compiler/tree/tuple-unboxing/tuple-unboxing.factor
@@ -162,5 +162,5 @@ M: #alien-callback unbox-tuples* ;
 
 : unbox-tuples ( nodes -- nodes )
     allocations get escaping-allocations get
-    [ nip key? ] curry assoc-all?
+    [ key? ] curry all-values?
     [ [ unbox-tuples* ] map-nodes ] unless ;