diff options
| -rw-r--r-- | jefs.s | 14 |
1 files changed, 8 insertions, 6 deletions
@@ -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 |