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

[factor.git] / extra / enigma / enigma.factor

diff --git a/extra/enigma/enigma.factor b/extra/enigma/enigma.factor
index e70930a183999526dcc3077d5605c902792e3352..cc03fef19bde2bec0b13e84f89f09093bfc4c7ce 100644 (file)
--- a/extra/enigma/enigma.factor
+++ b/extra/enigma/enigma.factor
@@ -7,13 +7,13 @@ sequences sequences.extras vectors ;
 IN: enigma
 
 : <alphabet> ( -- seq )
-    26 iota >array ;
+    26 <iota> >array ;
 
 : <cog> ( -- cog )
     <alphabet> randomize ;
 
 : <reflector> ( -- reflector )
-    <alphabet> dup length iota >vector [ dup empty? ] [
+    <alphabet> dup length <iota> >vector [ dup empty? ] [
         [
             [ delete-random ] [ delete-random ] bi
             pick exchange
@@ -40,7 +40,7 @@ TUPLE: enigma cogs prev-cogs reflector ;
             ln 1 + ln!
             cogs [ nth ] each reflector nth
             cogs reverse [ index ] each CHAR: a +
-            cogs length iota [ 6 * 1 + ln mod zero? ] filter
+            cogs length <iota> [ 6 * 1 + ln mod zero? ] filter
             cogs [ unclip prefix ] change-nths
         ] unless
     ] map ;