Assocs stack effect fix

db4
Daniel Ehrenberg 2009-02-19 16:50:55 -06:00
parent 9565b59928
commit 478c1d2928
1 changed files with 1 additions and 1 deletions

View File

@ -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>