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

hashtables: use >= in hash-large?.

db4
John Benediktsson 2014-01-05 23:08:53 -08:00
parent 54cca48aca
commit 260abd3d7c
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/hashtables/hashtables.factor
View File

@ -94,8 +94,8 @@ TUPLE: hashtable
[ swapd (set-at) ] curry assoc-each ; inline [ swapd (set-at) ] curry assoc-each ; inline
: hash-large? ( hash -- ? ) : hash-large? ( hash -- ? )
[ count>> 3 fixnum*fast 1 fixnum+fast ] [ count>> 3 fixnum*fast ]
[ array>> length>> ] bi fixnum> ; inline [ array>> length>> ] bi fixnum>= ; inline
: each-pair ( array quot: ( key value -- ) -- ) : each-pair ( array quot: ( key value -- ) -- )
[ [