From f0464fa097730ffe0e9f564ea3610b0efd29c3d6 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 19 Sep 2012 16:15:14 -0700
Subject: [PATCH] math.bitwise: Inline bit-range

---
 basis/math/bitwise/bitwise.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/math/bitwise/bitwise.factor b/basis/math/bitwise/bitwise.factor
index e621610d6d..88469b207b 100644
--- 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