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

fixed a bug of do-loop

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-05 21:34:06 +09:00
parent 8356ff933a
commit f71413d42b
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
bootstrap.fs
View file

@ -1723,9 +1723,15 @@ do-stack 16 cells + do-sp !
\ compile: ( -- dest mark )
: do
compile 2dup
compile >r \ save start
compile >r \ save limit
\ leave if start >= limit
compile >
compile 0branch
0 ,
here >do do-mark >do
here cell- >do leave-mark >do
; immediate
: leave ( -- orig mark )