From 3f11990452af9bef711a10b4b2dbe3c82a8ff55d Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 8 Aug 2012 20:07:38 -0700
Subject: [PATCH] sequences.extras: adding map-index!.

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

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index 6833ceed38..e353064aef 100644
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -224,3 +224,6 @@ PRIVATE>
     [ find ] 2keep rot [
         [ 1 + ] 2dip find-from drop not
     ] [ 3drop f ] if ; inline
+
+: map-index! ( ... seq quot: ( ... elt index -- ... newelt ) -- ... seq )
+    over [ [ (each-index) ] dip collect ] keep ; inline