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

remove an unneeded charater

Browse source 
FossilOrigin-Name: 1dc7ebf7f5d8b2946dac041293537073256f3b711e79a40c4abe61cef97050b7
This commit is contained in:
crc 2019-02-07 02:28:49 +00:00
parent 6bc6d0ced0
commit bb96165912
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
example/retro-extend.forth
View file

@ -257,7 +257,7 @@ top level word called returns.
#8 shift dup mask write-byte #8 shift dup mask write-byte
#8 shift mask write-byte ; #8 shift mask write-byte ;
:save-image (s-)z :save-image (s-)
file:W file:open !FID file:W file:open !FID
&Image &Image #3 + fetch [ fetch-next write-cell ] times drop &Image &Image #3 + fetch [ fetch-next write-cell ] times drop
&Image #3 + fetch n:put sp 'cells_written s:put nl &Image #3 + fetch n:put sp 'cells_written s:put nl