From 7cd9c751f768a8a674812910960b81dfcbb1f864 Mon Sep 17 00:00:00 2001 From: crc Date: Wed, 27 Oct 2021 13:11:48 +0000 Subject: [PATCH] array internal accessors: set defaults FossilOrigin-Name: cc92fef79aff7de240b5371b22f020c976f4b6d3634eb34107355a8970c97e2f --- image/retro.forth | 8 ++++---- ngaImage | Bin 43596 -> 43596 bytes vm/nga-c/image.c | 2 +- 3 files changed, 5 insertions(+), 5 deletions(-) diff --git a/image/retro.forth b/image/retro.forth index e9c3ef8..3980e60 100644 --- a/image/retro.forth +++ b/image/retro.forth @@ -1483,10 +1483,10 @@ we wrap this as `a:length`: ~~~ 'a:Accessors d:create - #0 , (fetch) - #0 , (store) - #0 , (fetch-next) - #0 , (store-next) + &fetch , (fetch) + &store , (store) + &fetch-next , (fetch-next) + &store-next , (store-next) :a:(fetch) &a:Accessors #0 + fetch call ; :a:(store) &a:Accessors #1 + fetch call ; diff --git a/ngaImage b/ngaImage index 6fc5b32300c477846fa7c9f913c87b28a1b5628d..97b4b3fffbc0c8c5508d478854ec52942fd4af1e 100644 GIT binary patch delta 40 scmX?eh3U){rVS_BM3osB7*v7S0*I}Fc#$Fl!;#5>ZNi&Bw8ba`0Qn;ezW@LL delta 28 kcmX?eh3U){rVS_BCZ8!5U|pohz;I-8V4Lvf4{b5Z0Lak{)&Kwi diff --git a/vm/nga-c/image.c b/vm/nga-c/image.c index 3ca26b1..6caa24a 100644 --- a/vm/nga-c/image.c +++ b/vm/nga-c/image.c @@ -442,7 +442,7 @@ CELL ngaImage[] = { 1793,16778,17073,17116,202111,405,377,1150,1535,0,10,1,10,2, 112,45,120,116,0,1,0,4,1793,8589,2049,2181,2049,180,2831,1793,8582,4,1,2139, 2049,2192,10,1,8576,1,15,2049,64,10,1,8569,2049,8517,3,10,8548,8608,166,15297, 97,58,108,101,110,103,116,104,0,15,10,8595,8626,154,0,97,58,65,99,99, - 101,115,115,111,114,115,0,0,0,0,0,8610,8644,166,0,97,58,40,102,101, + 101,115,115,111,114,115,0,35,37,56,59,8610,8644,166,0,97,58,40,102,101, 116,99,104,41,0,1,8626,1,0,17,15,8,10,8630,8666,166,0,97,58,40, 115,116,111,114,101,41,0,1,8626,1,1,17,15,8,10,8652,8693,166,0,97, 58,40,102,101,116,99,104,45,110,101,120,116,41,0,1,8626,1,2,17,15,