tuple-arrays: final-class wasn't a predicate class.
parent
8c5e9a7df4
commit
d593d3d953
|
@ -1,5 +1,5 @@
|
||||||
USING: tuple-arrays sequences tools.test namespaces kernel
|
USING: tuple-arrays sequences tools.test namespaces kernel
|
||||||
math accessors classes.tuple eval classes.struct ;
|
math accessors classes classes.tuple eval classes.struct ;
|
||||||
IN: tuple-arrays.tests
|
IN: tuple-arrays.tests
|
||||||
|
|
||||||
SYMBOL: mat
|
SYMBOL: mat
|
||||||
|
|
|
@ -27,8 +27,7 @@ MACRO: write-tuple ( class -- quot )
|
||||||
|
|
||||||
: check-final ( class -- )
|
: check-final ( class -- )
|
||||||
tuple-class check-instance
|
tuple-class check-instance
|
||||||
final-class check-instance
|
dup final-class? [ drop ] [ not-final ] if ;
|
||||||
drop ;
|
|
||||||
|
|
||||||
PRIVATE>
|
PRIVATE>
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue