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

[factor.git] / unmaintained / sudokus / sudokus.factor

diff --git a/unmaintained/sudokus/sudokus.factor b/unmaintained/sudokus/sudokus.factor
index 8944488019809d23b11c3f4dd90eb6120c3baecc..a45df31f1d315145723c6ae79dfd3c792c4f080b 100644 (file)
--- a/unmaintained/sudokus/sudokus.factor
+++ b/unmaintained/sudokus/sudokus.factor
@@ -14,7 +14,7 @@ IN: sudokus
 :: solutions ( puzzle random? -- solutions )
     f puzzle random? [ indices [ f ] [ random? swap nth-or-lower ] if-empty ] [ index ] if
     [ :> pos
-      1 9 [a,b] 80 iota [ pos near ] filter [ puzzle nth ] map prune diff
+      1 9 [a,b] 80 <iota> [ pos near ] filter [ puzzle nth ] map prune diff
       [ 1array puzzle pos cut-slice rest surround ] map >list [ random? solutions ] bind
     ] [ puzzle list-monad return ] if* ;