assocs: use collector-for in assoc>map to create a temporary vector appropriate for the exemplar
parent
74d0ef4413
commit
98c9b79881
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue