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

[factor.git] / extra / rosetta-code / luhn-test / luhn-test.factor

diff --git a/extra/rosetta-code/luhn-test/luhn-test.factor b/extra/rosetta-code/luhn-test/luhn-test.factor
index a25d1ca80fe0c1889126499676584b0855b753b6..e0af49231cfadfdf24f359187a62bd13bb2582ff 100644 (file)
--- a/extra/rosetta-code/luhn-test/luhn-test.factor
+++ b/extra/rosetta-code/luhn-test/luhn-test.factor
@@ -61,7 +61,7 @@ IN: rosetta-code.luhn-test
     while drop ;
 
 : luhn-digit  ( n -- n )
-    reversed-digits dup length iota [
+    reversed-digits dup length <iota> [
         2dup swap nth
         swap odd? [ 2 *  10 /mod + ] when
     ] map sum 10 mod