From 4872ad930ab09536cc19567126e0ed3631ac2d34 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sat, 5 Dec 2020 12:46:03 -0500 Subject: video: Change set-window-position! argument list. --- sdl2/video.scm | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) (limited to 'sdl2/video.scm') diff --git a/sdl2/video.scm b/sdl2/video.scm index d26eb62..1c08495 100644 --- a/sdl2/video.scm +++ b/sdl2/video.scm @@ -225,12 +225,9 @@ the border." (ffi:sdl-set-window-title (unwrap-window window) (string->pointer title))) -(define (set-window-position! window position) - "Set the position of WINDOW to POSITION, a two-element list of (x,y) -coordinates measured in pixels." - (match position - ((x y) - (ffi:sdl-set-window-position (unwrap-window window) x y)))) +(define (set-window-position! window x y) + "Set the position of WINDOW to (X, Y)." + (ffi:sdl-set-window-position (unwrap-window window) x y)) (define (set-window-size! window size) "Set the dimensions of WINDOW to SIZE, a two-element list -- cgit v1.2.3