assocs: use collector-for in assoc>map to create a temporary vector appropriate for the exemplar

db4
Joe Groff 2010-02-06 23:59:34 -08:00
parent 74d0ef4413
commit 98c9b79881
1 changed files with 1 additions and 1 deletions

View File

@ -58,7 +58,7 @@ PRIVATE>
(assoc-each) each ; inline
: assoc>map ( assoc quot exemplar -- seq )
[ collector [ assoc-each ] dip ] dip like ; inline
[ collector-for [ assoc-each ] dip ] [ like ] bi ; inline
: assoc-map-as ( assoc quot exemplar -- newassoc )
[ [ 2array ] compose V{ } assoc>map ] dip assoc-like ; inline