From 5679a233b55f1a6919bc14d54683c1c84bc15652 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Wed, 16 Dec 2015 20:45:27 -0500
Subject: events: window: Fix parse-window-event.

Good ol' fencepost error strikes again.

* sdl2/events.scm (parse-window-event): Fix off-by-1 error.
---
 sdl2/events.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'sdl2')

diff --git a/sdl2/events.scm b/sdl2/events.scm
index edb9306..a9d3b98 100644
--- a/sdl2/events.scm
+++ b/sdl2/events.scm
@@ -101,7 +101,7 @@
                 focus-gained
                 focus-lost
                 close)
-              n))
+              (1- n)))
 
   (define types
     (list uint32  ; type
-- 
cgit v1.2.3