basis: ERROR: changes.

[factor.git] / basis / math / bitwise / bitwise.factor

diff --git a/basis/math/bitwise/bitwise.factor b/basis/math/bitwise/bitwise.factor
index 658d3586e005c9b7cb20e33c2e21ad4b2aac8912..8fd652b8d9ba96a834ec2d8d9eb2d5174aad96ac 100644 (file)
--- a/basis/math/bitwise/bitwise.factor
+++ b/basis/math/bitwise/bitwise.factor
@@ -29,7 +29,7 @@ IN: math.bitwise
 
 ERROR: bit-range-error x high low ;
 : bit-range ( x high low -- y )
-    2dup { [ nip 0 < ] [ < ] } 2|| [ bit-range-error ] when
+    2dup { [ nip 0 < ] [ < ] } 2|| [ throw-bit-range-error ] when
     [ nip neg shift ] [ - 1 + ] 2bi bits ; inline
 
 : bitroll ( x s w -- y )