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

2020-01-15 13:54:40 -08:00 · 2020-01-15 13:54:40 -08:00 · d593d3d953
parent 8c5e9a7df4
commit d593d3d953
2 changed files with 2 additions and 3 deletions
--- a/basis/tuple-arrays/tuple-arrays-tests.factor
+++ b/basis/tuple-arrays/tuple-arrays-tests.factor
@ -1,5 +1,5 @@
 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

 SYMBOL: mat
--- a/basis/tuple-arrays/tuple-arrays.factor
+++ b/basis/tuple-arrays/tuple-arrays.factor
@ -27,8 +27,7 @@ MACRO: write-tuple ( class -- quot )

 : check-final ( class -- )
    tuple-class check-instance
-    final-class check-instance
-    drop ;
+    dup final-class? [ drop ] [ not-final ] if ;

 PRIVATE>