2008-08-06 02:06:14 -04:00
|
|
|
! Copyright (C) 2008 Slava Pestov.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2009-10-28 14:38:27 -04:00
|
|
|
USING: layouts kernel parser math sequences ;
|
2008-08-06 02:06:14 -04:00
|
|
|
IN: persistent.hashtables.config
|
|
|
|
|
|
2009-10-28 14:38:27 -04:00
|
|
|
: radix-bits ( -- n ) << cell 4 = 4 5 ? suffix! >> ; foldable
|
2009-08-13 20:21:44 -04:00
|
|
|
: radix-mask ( -- n ) radix-bits 2^ 1 - ; foldable
|
|
|
|
|
: full-bitmap-mask ( -- n ) radix-bits 2^ 2^ 1 - ; inline
|
