Fix abuse of spread in persistent.hashtables.

2011-10-02 21:53:17 -07:00 · 2011-10-02 21:53:17 -07:00 · b6f0ee64a0
parent baceee8c50
commit b6f0ee64a0
1 changed files with 2 additions and 1 deletions
--- a/basis/persistent/hashtables/hashtables.factor
+++ b/basis/persistent/hashtables/hashtables.factor
@ -23,7 +23,8 @@ M: persistent-hash at*

 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 ?
    ] [ count>> ] bi +
    persistent-hash boa ;