diff options
Diffstat (limited to 'jefs.fs')
| -rw-r--r-- | jefs.fs | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -22,9 +22,12 @@ decimal : again branch here @ 4 + - d, ; immediate \ add 4 to get to beginning of the next instruction : until 0branch here @ 4 + - d, ; : if 0branch here @ 0 d, ; immediate ( I: -- a ) +: else branch here @ 0 d, swap dup here @ swap - 4 - swap d! ; immediate : then dup here @ swap - 4 - swap d! ; immediate : / /mod swap drop ; : mod /mod drop ; -TESTSTR say cr bye +: testing 0 if TESTSTR else TESTSTR2 then say cr ; + +testing bye |
