From bd510a228ea0e49174a5228e07003c6d3f743b06 Mon Sep 17 00:00:00 2001 From: d_m Date: Mon, 3 Feb 2025 23:25:42 -0500 Subject: [PATCH] parameterize emulator --- test.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/test.scm b/test.scm index 162a412..40544a0 100644 --- a/test.scm +++ b/test.scm @@ -21,10 +21,13 @@ (let ((s (read-string #f port))) (if (eq? s #!eof) "" s))) +(define emulator "./vm") +;(define emulator "uxncli") + (define (run-rom prog-text emu-args input-text) (let*-values (((rom-path) (create-rom prog-text)) ((args) (cons rom-path emu-args)) - ((c-out c-in c-pid c-err) (process* "./vm" args))) + ((c-out c-in c-pid c-err) (process* emulator args))) (display input-text c-in) (close-output-port c-in) (let*-values (((out-text) (read-output c-out))