diff options
| author | David Thompson <dthompson2@worcester.edu> | 2022-10-08 09:24:43 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2022-10-08 09:24:43 -0400 |
| commit | f782e70390525fa2e5bfdf8e2ff249ece1640a98 (patch) | |
| tree | f32636a96e590ec98d52d72c7e86ecc70ab18c45 /chickadee.scm | |
| parent | 1578a7025c3c70cbbdb110aa42125c9acb57aeda (diff) | |
Update error handling to use Guile's new exception API.
Diffstat (limited to 'chickadee.scm')
| -rw-r--r-- | chickadee.scm | 4 |
1 files changed, 2 insertions, 2 deletions
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)) |