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

diff --git a/extra/assocs/extras/extras.factor b/extra/assocs/extras/extras.factor
index 54e28e8c02bc26f3c7e76a7fee6cacb147db2832..3019a5e86a4a413c67074f01715f00aebe092a6e 100644 (file)
--- 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! ;