math.bitwise: Inline bit-range

2012-09-19 16:15:14 -07:00 · 2012-09-19 16:15:14 -07:00 · f0464fa097
parent cda2e4d7da
commit f0464fa097
1 changed files with 1 additions and 1 deletions
--- 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