basis/persistent/hashtables/config/config.factor

   1 ! Copyright (C) 2008 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: layouts kernel parser math ;
   4 IN: persistent.hashtables.config
   5
   6 : radix-bits ( -- n ) << cell 4 = 4 5 ? parsed >> ; foldable
   7 : radix-mask ( -- n ) radix-bits 2^ 1 - ; foldable
   8 : full-bitmap-mask ( -- n ) radix-bits 2^ 2^ 1 - ; inline