update a:for-each

FossilOrigin-Name: 8d0fd38330d3a2892cccf2cf6f288dacc8d4e49cc77ac8efc175554550f1d73a

array-todo.txt

@@ -17,7 +17,7 @@ Words marked with a (-) are partially updated.
 [x]   a:length
 [-]   a:counted-results
 [ ]   a:from-string
-[ ]   a:for-each
+[x]   a:for-each
 [ ]   a:dup
 [ ]   a:copy
 [ ]   a:to-string

image/retro.forth

@@ -1526,7 +1526,7 @@ additional combinators.
 ~~~
 :a:for-each (aq-)
   swap fetch-next &swap dip
-  [ push fetch-next \swpodupu \swpuca.. \popo.... ] times drop-pair ;
+  [ push a:(fetch-next) \swpodupu \swpuca.. \popo.... ] times drop-pair ;
 ~~~
 
 With this I can easily define `a:dup` to make a copy of an

vm/nga-c/image.c

@@ -457,7 +457,7 @@ CELL ngaImage[] = { 1793,16778,17073,17116,202111,405,377,1150,1535,0,10,1,10,2,
                        1793,8864,2049,59,10,1,8861,2049,2495,3,10,1,8853,2049,2192,10,8826,8893,166,15297,
                        97,58,102,114,111,109,45,115,116,114,105,110,103,0,2049,1953,1793,8907,2,2049,
                        102,2049,128,1,128,2049,4694,10,1,8897,2049,2192,10,8875,8927,166,15297,97,58,102,
-                       111,114,45,101,97,99,104,0,4,2049,56,1,17,2049,2192,1793,8943,5,2049,56,
+                       111,114,45,101,97,99,104,0,4,2049,56,1,17,2049,2192,1793,8943,5,2049,8693,
                        84018692,525572,1542,10,1,8936,2049,2495,771,10,8912,8959,166,15297,97,58,100,117,112,0,
                        2049,1953,1793,8972,2,15,2049,128,1,128,2049,8927,10,1,8963,2049,2192,10,8949,8988,
                        166,15297,97,58,99,111,112,121,0,1,3,1793,9004,4097,3,2,2049,8608,2049,128,