From 80d129191ecc8611bbf2bf8d18db69234e16beb3 Mon Sep 17 00:00:00 2001
From: Doug Coleman <erg@jjjj.local>
Date: Sat, 12 Jan 2008 12:24:38 -1000
Subject: [PATCH] small cleanup of shuffle words
---
core/tuples/tuples.factor | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/core/tuples/tuples.factor b/core/tuples/tuples.factor
index 6eff703cbd..c7deb17e9f 100644
--- 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?