crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

array internal accessors: set defaults

Browse source 
FossilOrigin-Name: cc92fef79aff7de240b5371b22f020c976f4b6d3634eb34107355a8970c97e2f
This commit is contained in:
crc 2021-10-27 13:11:48 +00:00
parent 063b2cca37
commit 7cd9c751f7
3 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
image/retro.forth
View file

@ -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 ;

BIN
ngaImage
View file

Binary file not shown.

2
vm/nga-c/image.c
View file

@ -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,