basis: ERROR: changes.

[factor.git] / basis / bit-sets / bit-sets.factor

diff --git a/basis/bit-sets/bit-sets.factor b/basis/bit-sets/bit-sets.factor
index 2b4fb129ee4b9d5ff7ba43e1ef7c97d73ab40165..a4c24f0bdc36b1cf788358629116d3ecefb48955 100644 (file)
--- a/basis/bit-sets/bit-sets.factor
+++ b/basis/bit-sets/bit-sets.factor
@@ -32,7 +32,7 @@ M: bit-set delete
 ERROR: check-bit-set-failed ;
 
 : check-bit-set ( bit-set -- bit-set )
-    dup bit-set? [ check-bit-set-failed ] unless ; inline
+    dup bit-set? [ throw-check-bit-set-failed ] unless ; inline
 
 : bit-set-map ( seq1 seq2 quot -- seq )
     [ drop [ length ] bi@ [ assert= ] keep ]