diff options
| -rw-r--r-- | bytepusher.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/bytepusher.scm b/bytepusher.scm index 81682da..b71861e 100644 --- a/bytepusher.scm +++ b/bytepusher.scm @@ -185,9 +185,9 @@ (values a b c))) (define (loop-frame!) - (let loop ((count 65536)) - (execute! (get-pc)) - (unless (= count 0) (loop (- count 1))))) + (let loop ((count 65535)) + (execute! (get-pc)) + (unless (= count 0) (loop (- count 1))))) (define (handle-key! action! key) (let ((index (hashq-ref key-ids key))) |