From 90eb78b32ec8bd2933404906f2d54107f6c71b21 Mon Sep 17 00:00:00 2001 From: kitty Date: Tue, 17 Feb 2026 02:19:47 +1100 Subject: until should be immediate --- jefs.fs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'jefs.fs') diff --git a/jefs.fs b/jefs.fs index 0f54bdf..dc56042 100644 --- a/jefs.fs +++ b/jefs.fs @@ -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 -- cgit v1.2.3