Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2025-01-13 08:01:10 +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-11 07:37:49 +09:00
parent 9d88c996d8
commit 99b11b12bd
1 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
bootstrap.fs
View file

@ -1435,8 +1435,14 @@ do-stack 16 cells + do-sp !
compile 2dup
compile >r \ save start
compile >r \ save limit
\ leave if start >= limit
compile >
\ Leave if start >= limit.
\ Have to write 'limit start swap 1- <= 0branch ...' but not
\ 'limit start > 0branch ...'
\ Since iteration range [start...limit) and [start...limit-1] is
\ different when limit-1 is the maximum unsigned integer.
compile swap
compile 1-
compile <=
compile 0branch
0 ,
here >do do-mark >do