From f782e70390525fa2e5bfdf8e2ff249ece1640a98 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sat, 8 Oct 2022 09:24:43 -0400
Subject: Update error handling to use Guile's new exception API.

---
 chickadee.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'chickadee.scm')

diff --git a/chickadee.scm b/chickadee.scm
index c8ad719..8dc0400 100644
--- a/chickadee.scm
+++ b/chickadee.scm
@@ -387,8 +387,8 @@ border is disabled, otherwise it is enabled.")
         (with-projection (atomic-box-ref default-projection)
           (draw alpha)))
       (sdl2:swap-gl-window (unwrap-window window)))
-    (define (on-error stack key args)
-      (error stack key args)
+    (define (on-error e stack)
+      (error e stack)
       ;; Flush all input events that have occurred while in the error
       ;; state.
       (while (poll-event) #t))
-- 
cgit v1.2.3