steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

hash-sets: use >= in hash-large?.

db4
John Benediktsson 2014-01-05 23:09:07 -08:00
parent 260abd3d7c
commit fef1b2fb00
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/hash-sets/hash-sets.factor
View File

@ -68,8 +68,8 @@ TUPLE: hash-set
[ (adjoin) drop ] curry each ; inline
: hash-large? ( hash -- ? )
[ count>> 3 fixnum*fast 1 fixnum+fast ]
[ array>> length>> 1 fixnum-shift-fast ] bi fixnum> ; inline
[ count>> 3 fixnum*fast ]
[ array>> length>> 1 fixnum-shift-fast ] bi fixnum>= ; inline
: each-member ( array quot: ( elt -- ) -- )
[ if ] curry [ dup tombstone? [ drop ] ] prepose each ; inline