From a81e737e025e9c9e2e3f45ebe108782612149789 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Thu, 13 Nov 2008 00:10:37 -0600
Subject: [PATCH] Add passociate word: like associate but for persistent
 hashtables

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

diff --git a/basis/persistent/hashtables/hashtables.factor b/basis/persistent/hashtables/hashtables.factor
index a867dbb2e3..e50fd52c10 100644
--- a/basis/persistent/hashtables/hashtables.factor
+++ b/basis/persistent/hashtables/hashtables.factor
@@ -53,3 +53,6 @@ M: persistent-hash clone ;
 M: persistent-hash pprint-delims drop \ PH{ \ } ;
 M: persistent-hash >pprint-sequence >alist ;
 M: persistent-hash pprint* pprint-object ;
+
+: passociate ( value key -- phash )
+    T{ persistent-hash } new-at ; inline