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

[factor.git] / extra / sudoku / sudoku.factor

diff --git a/extra/sudoku/sudoku.factor b/extra/sudoku/sudoku.factor
index 47ab274cd1ae2458aee760ff1237818280882f8a..9f8453b9e4aeb018ca95b60979f59095dd18118a 100644 (file)
--- a/extra/sudoku/sudoku.factor
+++ b/extra/sudoku/sudoku.factor
@@ -17,7 +17,7 @@ SYMBOL: board
 : cell-any? ( n x y i -- ? ) 3 /mod pair+ board> = ;
 
 : box-any? ( n x y -- ? )
-    [ 3 /i 3 * ] bi@ 9 iota [ cell-any? ] 3 nwith any? ;
+    [ 3 /i 3 * ] bi@ 9 <iota> [ cell-any? ] 3 nwith any? ;
 
 : board-any? ( n x y -- ? )
     { [ nip row-any? ] [ drop col-any? ] [ box-any? ] } 3|| ;