basis: ERROR: changes.

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

diff --git a/basis/bit-arrays/bit-arrays.factor b/basis/bit-arrays/bit-arrays.factor
index 55fec5bba3cbbe9920051a665d0c2d60675b1365..4068c5e2ccce7ec757da5336f170de6757e70ab6 100644 (file)
--- a/basis/bit-arrays/bit-arrays.factor
+++ b/basis/bit-arrays/bit-arrays.factor
@@ -47,7 +47,7 @@ PRIVATE>
 ERROR: bad-array-length n ;
 
 : <bit-array> ( n -- bit-array )
-    dup 0 < [ bad-array-length ] when
+    dup 0 < [ throw-bad-array-length ] when
     dup bits>bytes <byte-array>
     bit-array boa ; inline