From d927ed5620f3a2ff0105b1f634f4451b99d840aa Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 26 Nov 2008 04:20:25 -0600
Subject: [PATCH] Better hints

---
 basis/math/bitwise/bitwise.factor | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

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