use iota in crypto.xor

2009-10-06 20:29:43 -05:00 · 2009-10-06 20:29:43 -05:00 · f050215cbd
parent a69f142534
commit f050215cbd
1 changed files with 1 additions and 1 deletions
--- 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 ;