Make assembler take a port

2025-01-07 10:50:23 -06:00
parent e252e8eb19
commit f8a868bb23
2 changed files with 19 additions and 16 deletions
--- a/tests.scm
+++ b/tests.scm
@@ -102,11 +102,11 @@
 (define-test-suite "assembler"
  (define-test "adder"
    (define out (open-output-bytevector))
-    (with-output-to-port out (lambda () (assemble adder-program-asm)))
+    (assemble adder-program-asm out)
    (assert-equal adder-program-bytecode (get-output-bytevector out)))
  (define-test "fib"
    (define out (open-output-bytevector))
-    (with-output-to-port out (lambda () (assemble fib-program-asm)))
+    (assemble fib-program-asm out)
    (assert-equal fib-program-bytecode (get-output-bytevector out))))

 (define-test-suite "vm"