summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--jefs.fs6
-rw-r--r--jefs.s2
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
: again branch <resolve ; immediate
-: until 0branch <resolve ; immediate
-: if 0branch >mark ; immediate ( I: -- a )
+: until ?branch <resolve ; immediate
+: if ?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 >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