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

assocs: cleanup and use first2-unsafe in assoc-find.

db4
John Benediktsson 2013-03-05 20:42:15 -08:00
parent ca8c7b4db4
commit 8f9bd87693
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

@ -50,7 +50,7 @@ M: assoc assoc-like drop ; inline
PRIVATE> PRIVATE>
: assoc-find ( ... assoc quot: ( ... key value -- ... ? ) -- ... key value ? ) : assoc-find ( ... assoc quot: ( ... key value -- ... ? ) -- ... key value ? )
(assoc-each) find swap [ first2 t ] [ drop f f f ] if ; inline (assoc-each) find swap [ first2-unsafe t ] [ drop f f f ] if ; inline
: key? ( key assoc -- ? ) at* nip ; inline : key? ( key assoc -- ? ) at* nip ; inline
@ -58,7 +58,7 @@ PRIVATE>
(assoc-each) each ; inline (assoc-each) each ; inline
: assoc>map ( ... assoc quot: ( ... key value -- ... elt ) exemplar -- ... seq ) : assoc>map ( ... assoc quot: ( ... key value -- ... elt ) exemplar -- ... seq )
[ >alist ] 2dip [ [ first2 ] prepose ] dip map-as ; inline [ (assoc-each) ] dip map-as ; inline
: assoc-map-as ( ... assoc quot: ( ... key value -- ... newkey newvalue ) exemplar -- ... newassoc ) : assoc-map-as ( ... assoc quot: ( ... key value -- ... newkey newvalue ) exemplar -- ... newassoc )
[ [ 2array ] compose { } assoc>map ] dip assoc-like ; inline [ [ 2array ] compose { } assoc>map ] dip assoc-like ; inline