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

diff --git a/basis/tuple-arrays/tuple-arrays-tests.factor b/basis/tuple-arrays/tuple-arrays-tests.factor
index f588b5db39aa5af58794df22c66811910a153b0a..87218e491be97f18662b29160572f1667866b0c5 100644 (file)
--- 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

diff --git a/basis/tuple-arrays/tuple-arrays.factor b/basis/tuple-arrays/tuple-arrays.factor
index 8d8b3bfa16c12fd83d3ac5c60b034513891973fb..8b8cc60afd26b7761618e4295b7e0aa5eb05f125 100644 (file)
--- 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>