X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Fpersistent%2Fhashtables%2Fnodes%2Fbitmap%2Fbitmap.factor;h=4c764eba9331d2bbdfeeb407e41758b054a51ccd;hp=f231043274839d171ee0bf6ed39bea0fc357a621;hb=3f3d57032bf29190e9bee12d168a4bce6d74653c;hpb=cd1bb8f4c8afba318249c7b756a45aa1c46ea51e diff --git a/basis/persistent/hashtables/nodes/bitmap/bitmap.factor b/basis/persistent/hashtables/nodes/bitmap/bitmap.factor index f231043274..4c764eba93 100644 --- a/basis/persistent/hashtables/nodes/bitmap/bitmap.factor +++ b/basis/persistent/hashtables/nodes/bitmap/bitmap.factor @@ -7,7 +7,7 @@ persistent.hashtables.config persistent.hashtables.nodes ; IN: persistent.hashtables.nodes.bitmap -: index ( bit bitmap -- n ) [ 1- ] dip bitand bit-count ; inline +: index ( bit bitmap -- n ) [ 1 - ] dip bitand bit-count ; inline M:: bitmap-node (entry-at) ( key hashcode bitmap-node -- entry ) [let* | shift [ bitmap-node shift>> ]