From d5ef0e046a314fad6ce640254389bf7a28efd8f0 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 13 Jul 2012 19:00:49 -0700
Subject: [PATCH] assocs.extras: adding (in-place) substitute!.

---
 extra/assocs/extras/extras.factor | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/extra/assocs/extras/extras.factor b/extra/assocs/extras/extras.factor
index 54e28e8c02..3019a5e86a 100644
--- 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! ;