Arbitrary stack access. What to do with tail calls?

2025-12-09 16:03:03 -06:00
parent 69b6ccbce0
commit 3ad9159969
4 changed files with 25 additions and 21 deletions
--- a/scmvm/language/assembly.scm
+++ b/scmvm/language/assembly.scm
@@ -13,8 +13,7 @@

 (define (lookup-instruction inst)
  (define inst-obj (assq (or-alias inst) *instruction-set*))
-  (if inst-obj
-      inst-obj
+  (or inst-obj
      (error (format #f "could not find instruction ~a" inst))))

 (define label? (negate pair?))