core: Rename iota to <iota> so we can have TUPLE: iota ... ; instead of TUPLE: iota...

[factor.git] / extra / crypto / xor / xor.factor

diff --git a/extra/crypto/xor/xor.factor b/extra/crypto/xor/xor.factor
index 45bbe55d6eb2deb34ecbac8437241ec6cdec9e12..5b274dbd713aa64056ba8652d7f8451fd59abb53 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 iota ] dip '[ _ mod-nth bitxor ] 2map ;
+    [ dup length <iota> ] dip '[ _ mod-nth bitxor ] 2map ;