diff --git a/asm/runtime.scm b/asm/runtime.scm index 3bb4726..0ef5e1d 100644 --- a/asm/runtime.scm +++ b/asm/runtime.scm @@ -1,3 +1,6 @@ +(push main) +(jmp) + ;; Note that this is scheme syntax wrapping asm for a stack machine (variable eol 0) (variable scan 0) @@ -8,9 +11,6 @@ (variable new 0) (variable root 0) -(push main) -(jmp) - alloc ;; ( -- p) ;; Test if free will go beyond eom (ref free) @@ -129,7 +129,7 @@ gc-loop (<) (branch gc-loop-done) (ref scan) -(relocate-reg) +(push relocate-reg) (push gc-loop) (jmp) gc-loop-done