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

[factor.git] / extra / space-invaders / space-invaders.factor

diff --git a/extra/space-invaders/space-invaders.factor b/extra/space-invaders/space-invaders.factor
index c6ae64c7f1a98a76d9f3efbddfbcc41897cd9a5b..fd385162c592ccf4007ad794c30741d4ff000859 100755 (executable)
--- a/extra/space-invaders/space-invaders.factor
+++ b/extra/space-invaders/space-invaders.factor
@@ -322,7 +322,7 @@ CONSTANT: red   { 255   0   0 }
     plot-bitmap-pixel ;
 
 : do-bitmap-update ( bitmap value addr -- )
-    addr>xy swap 8 iota [ plot-bitmap-bits ] with with with each ;
+    addr>xy swap 8 <iota> [ plot-bitmap-bits ] with with with each ;
 
 M: space-invaders update-video
     over 0x2400 >= [