summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--bytepusher.scm13
1 files changed, 2 insertions, 11 deletions
diff --git a/bytepusher.scm b/bytepusher.scm
index 1be1365..1182f48 100644
--- a/bytepusher.scm
+++ b/bytepusher.scm
@@ -168,20 +168,11 @@
(bytevector-copy! program 0 memory 0 (bytevector-length program))))))
(define (execute! instruction-addr)
- (call-with-values
- (lambda () (load-instruction instruction-addr))
- (lambda (a b c)
- (set-byte! b (get-byte a))
- c)))
-
-(define (load-instruction instruction-addr)
(let ((a (get-addr (+ 0 instruction-addr)))
(b (get-addr (+ 3 instruction-addr)))
(c (get-addr (+ 6 instruction-addr))))
- #;(display (string-append "a: " (number->string a 16) " "))
- #;(display (string-append "b: " (number->string b 16) " "))
- #;(display (string-append "c: " (number->string c 16) "\n"))
- (values a b c)))
+ (set-byte! b (get-byte a))
+ c))
(define (loop-frame!)
(let loop ((count 65536)