diff options
Diffstat (limited to 'jefs.fs')
| -rw-r--r-- | jefs.fs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -20,7 +20,7 @@ decimal : begin here @ ; immediate : again branch here @ 4 + - d, ; immediate \ add 4 to get to beginning of the next instruction -: until 0branch here @ 4 + - d, ; +: until 0branch here @ 4 + - d, ; immediate : 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 |
