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 Actions

Add unloop

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

7
bootstrap.fs
View file

@ -1486,6 +1486,11 @@ do-stack 16 cells + do-sp !
compile rdrop compile rdrop
; immediate ; immediate
: unloop ( R:a b -- )
compile rdrop
compile rdrop
; immediate
: i 2 rpick ; : i 2 rpick ;
: j 4 rpick ; : j 4 rpick ;
: k 6 rpick ; : k 6 rpick ;
@ -2477,7 +2482,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 +loop leave i j k do loop +loop unloop 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