From 94fa3929a886e3a40344de5f52b706426ab2f15f Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Thu, 23 Oct 2008 05:28:22 -0500
Subject: [PATCH] Rice

---
 core/classes/tuple/tuple.factor | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/core/classes/tuple/tuple.factor b/core/classes/tuple/tuple.factor
index ecff54d9bc..ef2cf616be 100644
--- a/core/classes/tuple/tuple.factor
+++ b/core/classes/tuple/tuple.factor
@@ -93,9 +93,8 @@ ERROR: bad-superclass class ;
 : tuple-instance? ( object class echelon -- ? )
     #! 4 slot == superclasses>>
     rot dup tuple? [
-        layout-of 4 slot
-        2dup 1 slot fixnum<
-        [ array-nth eq? ] [ 3drop f ] if
+        layout-of 4 slot { array } declare
+        2dup 1 slot fixnum< [ array-nth eq? ] [ 3drop f ] if
     ] [ 3drop f ] if ; inline
 
 : define-tuple-predicate ( class -- )