From 1c84a9c86247ab5222d1c8158a10089aa63aa583 Mon Sep 17 00:00:00 2001
From: Dane Johnson <daneallenjohnson@protonmail.com>
Date: Mon, 25 Aug 2025 12:34:46 -0500
Subject: [PATCH] Some bugfixes to runtime code, probably need to implement
 stepping debugger

---
 asm/runtime.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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