Cleanup some lint warnings.

[factor.git] / basis / persistent / hashtables / config / config.factor

diff --git a/basis/persistent/hashtables/config/config.factor b/basis/persistent/hashtables/config/config.factor
index 190db9e9ab88d0342c3661ee61e4f6f16d2bd527..1aeb4e0f41bc1164fc6668c76c11a142a165974f 100644 (file)
--- a/basis/persistent/hashtables/config/config.factor
+++ b/basis/persistent/hashtables/config/config.factor
@@ -1,8 +1,8 @@
 ! Copyright (C) 2008 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: layouts kernel parser math sequences ;
+USING: layouts kernel parser math math.bitwise sequences ;
 IN: persistent.hashtables.config
 
 : radix-bits ( -- n ) << cell 4 = 4 5 ? suffix! >> ; foldable
-: radix-mask ( -- n ) radix-bits 2^ 1 - ; foldable
-: full-bitmap-mask ( -- n ) radix-bits 2^ 2^ 1 - ; inline
+: radix-mask ( -- n ) radix-bits on-bits ; foldable
+: full-bitmap-mask ( -- n ) radix-bits 2^ on-bits ; inline