diff --git a/lasp.S b/lasp.S index eb18506..a8195d5 100644 --- a/lasp.S +++ b/lasp.S @@ -5,7 +5,7 @@ li64 r13, 0 ;; r253 will be the offset from the stack pointer specified by the spec to be r254 li64 r253, 0 - +; Load first char ldr r12, r13, lisp, 1 loop: @@ -27,6 +27,7 @@ loop: ; push the char onto the stack jmp push_u64_stack + ; loop :skull: jmp loop tx @@ -63,10 +64,6 @@ closed_paren: jmp log_lisp_error eval_stack: - jmp pop_u64_stack - jmp panic - -panic: jmp log_lisp_error lisp: