classes: use check-instance in a few places, to remove duplication.

[factor.git] / basis / tuple-arrays / tuple-arrays.factor

diff --git a/basis/tuple-arrays/tuple-arrays.factor b/basis/tuple-arrays/tuple-arrays.factor
index a08d7932a81ed8a8f3c5e41fb261e33e131b74fc..35aa7ecdbd08799fd1e8026dd2cc07f79ac6f632 100644 (file)
--- a/basis/tuple-arrays/tuple-arrays.factor
+++ b/basis/tuple-arrays/tuple-arrays.factor
@@ -26,11 +26,9 @@ MACRO: write-tuple ( class -- quot )
     bi '[ _ dip @ ] ;
 
 : check-final ( class -- )
-    {
-        { [ dup tuple-class? not ] [ not-a-tuple ] }
-        { [ dup final-class? not ] [ not-final ] }
-        [ drop ]
-    } cond ;
+    tuple-class check-instance
+    final-class check-instance
+    drop ;
 
 PRIVATE>