steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

assocs: 5-8% performance improvement to assoc>map. Fixes #69.

db4
John Benediktsson 2011-11-12 16:56:22 -08:00
parent 07ef058fb0
commit 00280a52a4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/assocs/assocs.factor
View File

@ -58,10 +58,10 @@ PRIVATE>
(assoc-each) each ; inline
: assoc>map ( ... assoc quot: ( ... key value -- ... elt ) exemplar -- ... seq )
[ collector-for [ assoc-each ] dip ] [ like ] bi ; inline
[ >alist ] 2dip [ [ first2 ] prepose ] dip map-as ; inline
: assoc-map-as ( ... assoc quot: ( ... key value -- ... newkey newvalue ) exemplar -- ... newassoc )
[ [ 2array ] compose V{ } assoc>map ] dip assoc-like ; inline
[ [ 2array ] compose { } assoc>map ] dip assoc-like ; inline
: assoc-map ( ... assoc quot: ( ... key value -- ... newkey newvalue ) -- ... newassoc )
over assoc-map-as ; inline