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

Add +loop

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-11 08:09:25 +09:00
parent 8b5782fc19
commit b55e8df45b
1 changed files with 19 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
bootstrap.fs
View file

@ -1468,6 +1468,24 @@ do-stack 16 cells + do-sp !
compile rdrop
; immediate
: +loop
compile r>
compile r>
compile rot
compile over
compile +
compile >r
compile over
compile >r
compile =
compile 0branch
here cell + backpatch-leave \ leave jumps to here
do> drop \ do-mark
do> here - ,
compile rdrop
compile rdrop
; immediate
: i 2 rpick ;
: j 4 rpick ;
: k 6 rpick ;
@ -2459,7 +2477,7 @@ need-defined (read)
if else then unless begin until again while repeat
recurse case of rangeof endof endcase
do loop leave i j k
do loop +loop leave i j k
char [char] key
.s . .r u. u.r dec. hex. type