From 478c1d2928ca3eb6c78c04bb7f3a4d75e5bc4e5b Mon Sep 17 00:00:00 2001
From: Daniel Ehrenberg <littledan@Macintosh-103.local>
Date: Thu, 19 Feb 2009 16:50:55 -0600
Subject: [PATCH] Assocs stack effect fix

---
 core/assocs/assocs.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core/assocs/assocs.factor b/core/assocs/assocs.factor
index e46bb7abb6..f2a04dc01b 100755
--- a/core/assocs/assocs.factor
+++ b/core/assocs/assocs.factor
@@ -38,7 +38,7 @@ M: assoc assoc-like drop ;
 : substituter ( assoc -- quot )
     [ dupd at* [ nip ] [ drop ] if ] curry ; inline
 
-: with-assoc ( assoc quot: ( value key -- assoc ) -- quot: ( key value -- ) )
+: with-assoc ( assoc quot: ( value key assoc -- ) -- quot: ( key value -- ) )
     curry [ swap ] prepose ; inline
 
 PRIVATE>