Some more compile time errors, some bug fixes for runtime

2025-08-25 11:44:48 -05:00
parent 274376a5de
commit 33f1618915
2 changed files with 18 additions and 2 deletions
--- a/scmvm/assembler.scm
+++ b/scmvm/assembler.scm
@@ -76,7 +76,10 @@
      (when (eq? (car inst) 'push)
        (if (number? (cadr inst))
            (write-word (cadr inst))
-            (write-word (assq-ref labels (cadr inst)))))
+            (let ([address (assq-ref labels (cadr inst))])
+              (if address
+                  (write-word (assq-ref labels (cadr inst)))
+                  (error (format #f "Could not find label ~a" (cadr inst)))))))
      (assembly-pass (cdr seq) labels))]))

 (define (assemble instructions port)