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 +++--- jefs.s | 2 +- 2 files changed, 4 insertions(+), 4 deletions(-) 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 ; diff --git a/jefs.s b/jefs.s index 617ca54..e08ed0f 100644 --- a/jefs.s +++ b/jefs.s @@ -1065,7 +1065,7 @@ defword "branch", branch, 0 mov qword [here], r12 ret -defword "0branch", zerobranch, 0 +defword "?branch", q_branch, 0 mov r12, [here] mov r11, 0x4d08768d4d1e8b4d ; pspop r11, first bit of test r11, r11 mov qword [r12], r11 -- cgit v1.2.3