steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Rice

db4
Slava Pestov 2008-10-23 05:28:22 -05:00
parent 1d750b26d2
commit 94fa3929a8
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
core/classes/tuple/tuple.factor
View File

@ -93,9 +93,8 @@ ERROR: bad-superclass class ;
: tuple-instance? ( object class echelon -- ? ) : tuple-instance? ( object class echelon -- ? )
#! 4 slot == superclasses>> #! 4 slot == superclasses>>
rot dup tuple? [ rot dup tuple? [
layout-of 4 slot layout-of 4 slot { array } declare
2dup 1 slot fixnum< 2dup 1 slot fixnum< [ array-nth eq? ] [ 3drop f ] if
[ array-nth eq? ] [ 3drop f ] if
] [ 3drop f ] if ; inline ] [ 3drop f ] if ; inline
: define-tuple-predicate ( class -- ) : define-tuple-predicate ( class -- )