diff options
| author | kitty <nepeta@canaglie.net> | 2026-02-17 02:19:47 +1100 |
|---|---|---|
| committer | kitty <nepeta@canaglie.net> | 2026-02-17 02:19:47 +1100 |
| commit | 90eb78b32ec8bd2933404906f2d54107f6c71b21 (patch) | |
| tree | 56bb3acb66f7d06b152c9a07b3075674a80114e1 | |
| parent | 68ccac2b6f92707834bcd5aebf62a990a817029b (diff) | |
until should be immediate
| -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 |
