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

Fix abuse of spread in persistent.hashtables.

db4
Doug Coleman 2011-10-02 21:53:17 -07:00
parent baceee8c50
commit b6f0ee64a0
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/persistent/hashtables/hashtables.factor
View File

@ -23,7 +23,8 @@ M: persistent-hash at*
M: persistent-hash new-at ( value key assoc -- assoc' ) M: persistent-hash new-at ( value key assoc -- assoc' )
[ [
{ [ 0 ] [ ] [ dup hashcode >fixnum ] [ root>> ] } spread [ 0 ] 3dip
[ dup hashcode >fixnum ] [ root>> ] bi*
(new-at) 1 0 ? (new-at) 1 0 ?
] [ count>> ] bi + ] [ count>> ] bi +
persistent-hash boa ; persistent-hash boa ;