assocs.extras: adding (in-place) substitute!.

2012-07-13 19:00:49 -07:00 · 2012-07-13 19:00:49 -07:00 · d5ef0e046a
parent 57b681dd71
commit d5ef0e046a
1 changed files with 3 additions and 0 deletions
--- a/extra/assocs/extras/extras.factor
+++ b/extra/assocs/extras/extras.factor
@ -21,3 +21,6 @@ IN: assocs.extras
        [ dup length ] dip new-assoc
        [ [ set-at ] with-assoc 2each ] keep
    ] if ; inline
+
+: substitute! ( seq assoc -- seq )
+    substituter map! ;