Utilize new implementation of vm

scmvm/vm2.scm

@@ -2,6 +2,7 @@
   #:use-module (ice-9 hash-table)
   #:export (define-instruction-set
              instruction-lookup
+             instruction-set-caller
              instruction-name
              instruction-code
              register-set))
@@ -19,7 +20,7 @@
               [else #f]))]
          [(call)
           (lambda (registers)
-            (let ([reg (assq-ref registers 'reg)] ...)
+            (let ([reg (hash-ref registers 'reg)] ...)
               (parameterize ([reg #f] ...)
                 (lambda (op)
                   (case op
@@ -28,6 +29,9 @@
 (define (instruction-lookup isa name)
   ((isa 'lookup) name))
 
+(define (instruction-set-caller instruction-set registers)
+  ((instruction-set 'call) registers))
+
 (define instruction-name car)
 (define instruction-code cadr)