use iota in crypto.xor

diff --git a/extra/crypto/xor/xor.factor b/extra/crypto/xor/xor.factor
index 662881f8cc4dc61a511d02067d6e16f64566ba07..45bbe55d6eb2deb34ecbac8437241ec6cdec9e12 100644 (file)
--- 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 ;