Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2024-12-26 21:58:42 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix stack notation of do-loop

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-15 18:34:37 +09:00
parent f0809a45df
commit f321addd29
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
bootstrap.fs
View file

@ -1471,14 +1471,14 @@ do-stack 16 cells + do-sp !
do-sp @ @ do-sp @ @
; ;
\ compile: ( -- dest mark ) \ compile: ( -- do: dest mark )
: do : do
compile >r \ save start compile >r \ save start
compile >r \ save limit compile >r \ save limit
here >do do-mark >do here >do do-mark >do
; immediate ; immediate
: leave ( -- orig mark ) : leave ( -- do: orig mark )
compile branch compile branch
here >do here >do
0 , \ fill dummy offset 0 , \ fill dummy offset