d6
/
uxn-scm
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

small clean up

This commit is contained in:
Erik Osheim 2025-01-22 14:36:40 -05:00
parent 667fb36489
commit b85c4e1a83
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
vm.scm
View File

@ -204,12 +204,12 @@
(if _2 (if _2
(let ((hi (_dei port)) (let ((hi (_dei port))
(lo (_dei (u8 (+ port 1))))) (lo (_dei (u8 (+ port 1)))))
(_push2 (hilo->u16 hi lo))) (_push1 hi) (_push1 lo))
(_push1 (_dei port))))) (_push1 (_dei port)))))
(define (_dei port) (define (_dei port)
(cond (cond
((= 4 port) (_push1 (+ (car wst) 1))) ((= 4 port) (+ (car wst) 1))
((= 5 port) (_push1 (+ (car rst) 1))) ((= 5 port) (+ (car rst) 1))
((and (<= 192 port) (< port 208)) (_datetime (- port 192))) ((and (<= 192 port) (< port 208)) (_datetime (- port 192)))
(* (u8 (vector-ref dev port))))) (* (u8 (vector-ref dev port)))))