From dd03b8ca6cdd54237b22c8e9c8e67e3323c0998f Mon Sep 17 00:00:00 2001 From: kitty Date: Thu, 26 Feb 2026 19:46:49 +1100 Subject: rename 0branch to ?branch --- jefs.fs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'jefs.fs') diff --git a/jefs.fs b/jefs.fs index 86b8a23..cb37c85 100644 --- a/jefs.fs +++ b/jefs.fs @@ -44,11 +44,11 @@ hex : ret, c3 c, ; decimal : begin mark ; immediate ( I: -- a ) +: until ?branch mark ; immediate ( I: -- a ) : else branch >mark swap >resolve ; immediate : then >resolve ; immediate -: while 0branch >mark ; immediate +: while ?branch >mark ; immediate : repeat branch swap resolve ; immediate : ?dup dup 0<> if dup then ; -- cgit v1.2.3