parameterize emulator

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))