Assocs stack effect fix
parent
9565b59928
commit
478c1d2928
|
@ -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>
|
||||
|
|
Loading…
Reference in New Issue