basis: ERROR: changes.

[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 869f8bf5a1bb5a1390c6f67c7c02b210a217f90f..6e995a813dfede2d534ee3e9cea6f9576a6a6f0e 100644 (file)
--- a/basis/tuple-arrays/tuple-arrays.factor
+++ b/basis/tuple-arrays/tuple-arrays.factor
@@ -33,8 +33,8 @@ MACRO: write-tuple ( class -- quot )
 
 : check-final ( class -- )
     {
-        { [ dup tuple-class? not ] [ not-a-tuple ] }
-        { [ dup final-class? not ] [ not-final ] }
+        { [ dup tuple-class? not ] [ throw-not-a-tuple ] }
+        { [ dup final-class? not ] [ throw-not-final ] }
         [ drop ]
     } cond ;