math.bitwise: Inline bit-range

diff --git a/basis/math/bitwise/bitwise.factor b/basis/math/bitwise/bitwise.factor
index e621610d6d0b85d9fd906fc6b3d61a111d1a46c7..88469b207bb5a4ad7300a015c5500be486aace5a 100644 (file)
--- a/basis/math/bitwise/bitwise.factor
+++ b/basis/math/bitwise/bitwise.factor
@@ -29,7 +29,7 @@ IN: math.bitwise
 : next-odd ( m -- n ) dup even? [ 1 + ] [ 2 + ] if ; foldable
 : shift-mod ( m s w -- n ) [ shift ] dip 2^ wrap ; inline
 : bit-range ( x high low -- y )
-    [ nip neg shift ] [ - 1 + ] 2bi bits ;
+    [ nip neg shift ] [ - 1 + ] 2bi bits ; inline
 
 : bitroll ( x s w -- y )
     [ wrap ] keep