From 1486cd9e970feef5edb08fdee58046cb64397e9a Mon Sep 17 00:00:00 2001
From: crc <crc@noemail.net>
Date: Wed, 27 Oct 2021 13:15:08 +0000
Subject: [PATCH] update a:for-each

FossilOrigin-Name: 8d0fd38330d3a2892cccf2cf6f288dacc8d4e49cc77ac8efc175554550f1d73a
---
 array-todo.txt    |   2 +-
 image/retro.forth |   2 +-
 ngaImage          | Bin 43596 -> 43596 bytes
 vm/nga-c/image.c  |   2 +-
 4 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/array-todo.txt b/array-todo.txt
index 3ff4bf0..a54538d 100644
--- a/array-todo.txt
+++ b/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
diff --git a/image/retro.forth b/image/retro.forth
index 3980e60..3a8db90 100644
--- a/image/retro.forth
+++ b/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
diff --git a/ngaImage b/ngaImage
index 97b4b3fffbc0c8c5508d478854ec52942fd4af1e..dd5a67a356fb13182e23c4c156447719111d20ee 100644
GIT binary patch
delta 17
ZcmX?eh3U){rVT5)nZ7D+Ue&!w4ggfO2<QL+

delta 18
acmX?eh3U){rVT5)Cl^#mY(CK4BL@Iq0|{dQ

diff --git a/vm/nga-c/image.c b/vm/nga-c/image.c
index 6caa24a..ec7cf33 100644
--- a/vm/nga-c/image.c
+++ b/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,