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

[factor.git] / extra / snake-game / sprites / sprites.factor

diff --git a/extra/snake-game/sprites/sprites.factor b/extra/snake-game/sprites/sprites.factor
index cac3e339608e22d3a9ed67e4d6c8caf952ec0e43..6af031bddeabf67a441bf4dc5a3bfc34c4041637 100644 (file)
--- a/extra/snake-game/sprites/sprites.factor
+++ b/extra/snake-game/sprites/sprites.factor
@@ -13,7 +13,7 @@ IN: snake-game.sprites
 
 :: image-part ( image x y w h -- image )
     image w h new-image-like :> new-image
-    h iota [| i |
+    h <iota> [| i |
         new-image bitmap>>
         x y i + w image pixel-row-slice-at
         append! drop
@@ -22,8 +22,8 @@ IN: snake-game.sprites
 :: generate-sprite-sheet ( image rows cols -- seq )
     cols rows 2array :> split-dims
     image dim>> split-dims [ / ] 2map first2 :> ( sw sh )
-    rows iota sh v*n :> ys
-    cols iota sh v*n :> xs
+    rows <iota> sh v*n :> ys
+    cols <iota> sh v*n :> xs
     ys xs [
         swap [ image ] 2dip sw sh image-part
     ] cartesian-map f join ;