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-each) each ; inline
|
||||||
|
|
||||||
: assoc>map ( assoc quot exemplar -- seq )
|
: 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 )
|
: assoc-map-as ( assoc quot exemplar -- newassoc )
|
||||||
[ [ 2array ] compose V{ } assoc>map ] dip assoc-like ; inline
|
[ [ 2array ] compose V{ } assoc>map ] dip assoc-like ; inline
|
||||||
|
|
Loading…
Reference in New Issue