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

2012-07-13 19:00:49 -07:00 · 2012-07-13 19:00:49 -07:00 · 59b7f2686b
parent 4e50bd0e96
commit 59b7f2686b
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! ;