Miroirs/retroforth
1
0
Fork 0
mirror of https://git.sr.ht/~crc_/retroforth synced 2024-11-16 19:48:56 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

stdlib: rename v:update-using to v:update

Browse source 
FossilOrigin-Name: eddab48fd1025d05e58ab5f0693fb5c951d379b415284c6249bcbab9068d784a
This commit is contained in:
crc 2019-05-03 19:03:52 +00:00
parent c060275f2f
commit 8745799928
3 changed files with 693 additions and 693 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

BIN
ngaImage
View file

Binary file not shown.

1380
source/interfaces/retro-image.c
View file

File diff suppressed because it is too large Load diff

6
source/retro.forth
View file

@ -603,16 +603,16 @@ Or:
#1 'Next var<n>
&Next [ fetch #10 * ] sip store
`v:update-using` replaces this with:
`v:update` replaces this with:
#1 'Next var<n>
&Next [ #10 * ] v:update-using
&Next [ #10 * ] v:update
It takes care of preserving the variable address, fetching the
stored value, and updating with the resulting value.
~~~
:v:update-using (aq-) swap [ fetch swap call ] sip store ;
:v:update (aq-) swap [ fetch swap call ] sip store ;
~~~
I have a simple word `copy` which copies memory to another