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

[factor.git] / extra / sequences / extras / extras.factor

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index 664100765a5dae381ef571783c98116635520634..874718d728a66d83f027ec7e19a9a9d787308b9f 100644 (file)
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -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
\ No newline at end of file