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

Add [unless]

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-06 17:23:29 +09:00
parent fdefd16eda
commit 93e668bad5
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
bootstrap.fs
View file

@ -1711,6 +1711,11 @@ switch-to-4th-stage
then then
; immediate ; immediate
: [unless] ( f -- )
not
[compile] [if]
; immediate
: [else] : [else]
\ If the condition is false, [else] is skipped by [if]. \ If the condition is false, [else] is skipped by [if].
\ So when the execution reaches [else] it means that \ So when the execution reaches [else] it means that