From 924f245f999d61b406aa249319e60f3839ef4e99 Mon Sep 17 00:00:00 2001 From: Caleb Figgers Date: Sun, 1 Jan 2023 04:32:40 -0600 Subject: [PATCH] Fix upstream dependency bug Addresses GH issue `Freeze when trying to quite` #21 --- project.janet | 2 +- src/jermbox.janet | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/project.janet b/project.janet index 418cbe3..4f5c3dd 100644 --- a/project.janet +++ b/project.janet @@ -4,7 +4,7 @@ :dependencies ["https://www.github.com/andrewchambers/janet-jdn" "https://www.github.com/CFiggers/janet-termios" "https://www.github.com/janet-lang/spork" - "https://www.github.com/MorganPeterson/jermbox"]) + "https://www.github.com/CFiggers/jermbox"]) (declare-executable :name "joule" diff --git a/src/jermbox.janet b/src/jermbox.janet index 2d3e708..121827e 100644 --- a/src/jermbox.janet +++ b/src/jermbox.janet @@ -65,7 +65,7 @@ (jermbox/poll-event event) (array/push keystrokes (get-key-struct event)) (when (deep= keystrokes @[{:character 0 :key 27 :modifier 0 :x 0 :y 0 :width 0 :height 0}]) - (while (jermbox/peek-event event 10) + (while (jermbox/peek-event event 1) (array/push keystrokes (get-key-struct event)))) keystrokes)