Slava Pestov 2008-10-23 05:28:22 -05:00
parent 1d750b26d2
commit 94fa3929a8
1 changed files with 2 additions and 3 deletions
core/classes/tuple

View File

@ -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 -- )