diff options
| author | Clyne Sullivan <clyne@bitgloo.com> | 2024-11-26 07:41:10 -0500 |
|---|---|---|
| committer | Clyne Sullivan <clyne@bitgloo.com> | 2024-11-26 07:41:10 -0500 |
| commit | bc22ddab0d463209d6b6aae58be07c8a6df9e5d7 (patch) | |
| tree | 7a0f2c90cae466bf620f5f9dec87d90d3ce9b647 /core.fth | |
| parent | 5cff8e25955dcc8e417e8be83a6746d2d42e7ff6 (diff) | |
if else then
Diffstat (limited to 'core.fth')
| -rw-r--r-- | core.fth | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -34,7 +34,12 @@ : +! dup >r swap r> @ + swap ! ; : allot dp +! ; : , here ! cell allot ; +: ['] ' [ ' literal , ] ; immediate : 1+ 1 + ; : 1- 1 - ; +: if ['] _jmp0 , here 0 , ; immediate +: then here swap ! ; immediate +: else ['] _jmp , here 0 , swap here swap ! ; immediate + |