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

tuple-arrays: final-class wasn't a predicate class.

flac
John Benediktsson 2020-01-15 13:54:40 -08:00 committed by Steve Ayerhart
parent 3a66238c8e
commit 3001c20b24
No known key found for this signature in database
GPG Key ID: 5BFD39C5359E967D
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/tuple-arrays/tuple-arrays-tests.factor
View File

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

3
basis/tuple-arrays/tuple-arrays.factor
View File

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