sequences.extras: add map-keys, map-values.

locals-and-roots
Doug Coleman 2016-05-09 16:28:04 -07:00
parent 7ced47a6b1
commit 7f3adf3fb1
1 changed files with 6 additions and 0 deletions

View File

@ -610,3 +610,9 @@ PRIVATE>
: map-zip ( quot: ( x -- y ) -- alist )
'[ _ keep swap ] map>alist ; inline
: map-keys ( assoc quot: ( key -- key' ) -- assoc )
'[ _ dip ] assoc-map ; inline
: map-values ( assoc quot: ( value -- value' ) -- assoc )
'[ swap _ dip swap ] assoc-map ; inline