Merge branch 'master' into regexp

[factor.git] / core / assocs / assocs.factor

diff --git a/core/assocs/assocs.factor b/core/assocs/assocs.factor
index c4deddae3949d97fa1104782cfba7d4e25fe1cde..0c0667e730348d69d3c07073258ee4c8e48480b0 100755 (executable)
--- a/core/assocs/assocs.factor
+++ b/core/assocs/assocs.factor
@@ -41,7 +41,7 @@ M: assoc assoc-like drop ;
 : substituter ( assoc -- quot )
     [ ?at drop ] 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>