diff options
| -rw-r--r-- | sdl2/events.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/sdl2/events.scm b/sdl2/events.scm index f02490b..aa08fff 100644 --- a/sdl2/events.scm +++ b/sdl2/events.scm @@ -247,8 +247,8 @@ int32)) ; data2 (match (parse-c-struct ptr types) - ((_ timestamp id event _ _ _ data1 data2) - (make-window-event timestamp id (type-symbol event) (cons data1 data2))))) + ((_ timestamp id event _ _ _ x y) + (make-window-event timestamp id (type-symbol event) (list x y))))) ;;; |