From 1ece633465755b7dc17b41e9d7a711eeee5f9684 Mon Sep 17 00:00:00 2001 From: Ekaitz Zarraga Date: Thu, 14 Jul 2022 22:53:36 +0200 Subject: Fix loop frame amount and indentation --- bytepusher.scm | 6 +++--- 1 file 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))) -- cgit v1.2.3