small cleanup of shuffle words

2008-01-12 12:24:38 -10:00 · 2008-01-12 12:24:38 -10:00 · 80d129191e
parent b6b9e6cc05
commit 80d129191e
1 changed files with 1 additions and 1 deletions
--- a/core/tuples/tuples.factor
+++ b/core/tuples/tuples.factor
@ -15,7 +15,7 @@ M: tuple class class-of-tuple ;
 <PRIVATE

 : tuple= ( tuple1 tuple2 -- ? )
-    over array-capacity over array-capacity dup -rot number= [
+    over array-capacity over array-capacity tuck number= [
        -rot
        [ >r over r> array-nth >r array-nth r> = ] 2curry
        all-integers?