From b85c4e1a8337da8da9b3fc3dab86f57dc463128a Mon Sep 17 00:00:00 2001 From: Erik Osheim Date: Wed, 22 Jan 2025 14:36:40 -0500 Subject: [PATCH] small clean up --- vm.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/vm.scm b/vm.scm index 615ec27..48939a0 100644 --- a/vm.scm +++ b/vm.scm @@ -204,12 +204,12 @@ (if _2 (let ((hi (_dei port)) (lo (_dei (u8 (+ port 1))))) - (_push2 (hilo->u16 hi lo))) + (_push1 hi) (_push1 lo)) (_push1 (_dei port))))) (define (_dei port) (cond - ((= 4 port) (_push1 (+ (car wst) 1))) - ((= 5 port) (_push1 (+ (car rst) 1))) + ((= 4 port) (+ (car wst) 1)) + ((= 5 port) (+ (car rst) 1)) ((and (<= 192 port) (< port 208)) (_datetime (- port 192))) (* (u8 (vector-ref dev port)))))