Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2024-12-26 21:58:42 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add ?dup

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

4
core.fs
View file

@ -629,6 +629,10 @@ alias-builtin xor ^
[compile] if [compile] if
; immediate ; immediate
\ ( n -- n n | n )
\ duplicate if n<>0
: ?dup dup if dup then ;
\ === Loops === \ === Loops ===
\ begin <body> <condition> until \ begin <body> <condition> until
\ begin <body> again \ begin <body> again