summaryrefslogtreecommitdiff
path: root/jefs.s
diff options
context:
space:
mode:
Diffstat (limited to 'jefs.s')
-rw-r--r--jefs.s14
1 files changed, 8 insertions, 6 deletions
diff --git a/jefs.s b/jefs.s
index c34dc7d..8af3ab7 100644
--- a/jefs.s
+++ b/jefs.s
@@ -212,20 +212,22 @@ defword "interpret", interpret, 0
pspop r11 ; assume it exists its fine for now
call to_cfa
mov r12, qword [state]
- cmp r12, interpreting
- je .interp
+ cmp r12, compiling
+ je .compile
-.compile:
+.interp:
pspop r11
- call compile_comma,
+ call r11
+ jmp .loop
ret ; unreachable safety RET
-.interp:
+.compile:
pspop r11
- call r11
+ call compile_comma
jmp .loop
ret ; unreachable safety RET
+
defword ">cfa", to_cfa, 0
pspop r11
add r11, 9