Change vm from a closure to a record type for ease of use, expose data and ret stacks

This commit is contained in:
2025-08-13 11:42:56 -05:00
parent d02bc02258
commit 9a8cd12c5d
2 changed files with 111 additions and 122 deletions

View File

@@ -120,12 +120,12 @@
(define my-vm (make-vm))
(vm-load-program! my-vm adder-program-bytecode)
(vm-pc-set! my-vm 5)
((my-vm 'vm-run))
(run-vm my-vm)
(assert-equal 3 (vm-memory-ref my-vm 1)))
(define-test "fib"
(define my-vm (make-vm))
(vm-load-program! my-vm fib-program-bytecode)
(vm-memory-set! my-vm 1 10)
(vm-pc-set! my-vm 5)
((my-vm 'vm-run))
(run-vm my-vm)
(assert-equal 55 (vm-memory-ref my-vm 1))))