From b6f0ee64a0cd446a9d8d5870f26d0ea53c1c2d97 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 2 Oct 2011 21:53:17 -0700
Subject: [PATCH] Fix abuse of spread in persistent.hashtables.

---
 basis/persistent/hashtables/hashtables.factor | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/basis/persistent/hashtables/hashtables.factor b/basis/persistent/hashtables/hashtables.factor
index 256baabd5e..0159cab593 100644
--- 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 ;