From c7d86ebd554c71d09e0bfde0aaefc7e79a3632f7 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 26 Nov 2008 05:24:35 -0600
Subject: [PATCH] Oops

---
 basis/math/bitwise/bitwise.factor | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/basis/math/bitwise/bitwise.factor b/basis/math/bitwise/bitwise.factor
index 2ccbbe4005..71ada945cd 100644
--- a/basis/math/bitwise/bitwise.factor
+++ b/basis/math/bitwise/bitwise.factor
@@ -22,16 +22,13 @@ IN: math.bitwise
     [ shift ] dip 2^ wrap ; inline
 
 : bitroll ( x s w -- y )
+    [ wrap ] keep
     [ shift-mod ] [ [ - ] keep shift-mod ] 3bi bitor ; inline
 
 : bitroll-32 ( n s -- n' ) 32 bitroll ; inline
 
-HINTS: bitroll-32 { bignum fixnum } { fixnum fixnum } ;
-
 : bitroll-64 ( n s -- n' ) 64 bitroll ; inline
 
-HINTS: bitroll-64 { bignum fixnum } { fixnum fixnum } ;
-
 ! 32-bit arithmetic
 : w+ ( int int -- int ) + 32 bits ; inline
 : w- ( int int -- int ) - 32 bits ; inline