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

hashtables: use each-integer instead of iota ... each in >alist

db4
Slava Pestov 2009-05-06 15:30:30 -05:00
parent d89bb9f1c3
commit 688cd9b79b
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

@ -139,14 +139,14 @@ M: hashtable set-at ( value key hash -- )
PRIVATE> PRIVATE>
M: hashtable >alist M: hashtable >alist
[ array>> [ length 2/ iota ] keep ] [ assoc-size <vector> ] bi [ [ array>> [ length 2/ ] keep ] [ assoc-size <vector> ] bi [
[ [
[ [
[ 1 fixnum-shift-fast ] dip [ 1 fixnum-shift-fast ] dip
[ array-nth ] [ [ 1 fixnum+fast ] dip array-nth ] 2bi [ array-nth ] [ [ 1 fixnum+fast ] dip array-nth ] 2bi
] dip ] dip
pick tombstone? [ 3drop ] [ [ 2array ] dip push-unsafe ] if pick tombstone? [ 3drop ] [ [ 2array ] dip push-unsafe ] if
] 2curry each ] 2curry each-integer
] keep { } like ; ] keep { } like ;
M: hashtable clone M: hashtable clone