core: Add the shuffler words but without primitives.

[factor.git] / core / classes / tuple / tuple.factor

diff --git a/core/classes/tuple/tuple.factor b/core/classes/tuple/tuple.factor
index e260e3530ec326059943b46463c33775d3101a5a..029c8009392c1783682c0917e7e5447ffc7c6bca 100644 (file)
--- a/core/classes/tuple/tuple.factor
+++ b/core/classes/tuple/tuple.factor
@@ -208,7 +208,7 @@ M: object final-class? drop f ;
     pick [
         [ [ swap nth dup ] dip instance? ] dip swap
         [ drop ] [ nip ] if
-    ] [ [ 3drop ] dip ] if ;
+    ] [ 3nip ] if ;
 
 : apply-slot-permutation ( old-values triples -- new-values )
     [ first3 update-slot ] with map ;