Rice

2008-10-23 05:28:22 -05:00 · 2008-10-23 05:28:22 -05:00 · 94fa3929a8
parent 1d750b26d2
commit 94fa3929a8
1 changed files with 2 additions and 3 deletions
--- 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 -- )