Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2025-01-14 08:01:27 +01:00
Code Issues Projects Releases Packages Wiki Activity

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 compile rdrop
; immediate ; 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 ; : i 2 rpick ;
: j 4 rpick ; : j 4 rpick ;
: k 6 rpick ; : k 6 rpick ;
@ -2459,7 +2477,7 @@ need-defined (read)
if else then unless begin until again while repeat if else then unless begin until again while repeat
recurse case of rangeof endof endcase recurse case of rangeof endof endcase
do loop leave i j k do loop +loop leave i j k
char [char] key char [char] key
.s . .r u. u.r dec. hex. type .s . .r u. u.r dec. hex. type