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