From f050215cbd2c562dbc3801328612f8256a80b764 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 6 Oct 2009 20:29:43 -0500
Subject: [PATCH] use iota in crypto.xor

---
 extra/crypto/xor/xor.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/crypto/xor/xor.factor b/extra/crypto/xor/xor.factor
index 662881f8cc..45bbe55d6e 100644
--- a/extra/crypto/xor/xor.factor
+++ b/extra/crypto/xor/xor.factor
@@ -9,4 +9,4 @@ ERROR: empty-xor-key ;
 
 : xor-crypt ( seq key -- seq' )
     [ empty-xor-key ] when-empty
-    [ dup length ] dip '[ _ mod-nth bitxor ] 2map ;
+    [ dup length iota ] dip '[ _ mod-nth bitxor ] 2map ;