From 5654ee59b26d0718b99e149da7f7325418186597 Mon Sep 17 00:00:00 2001 From: Leo Prikler Date: Tue, 29 Sep 2020 10:45:07 +0200 Subject: render: Allow rect to be #f in render-draw-rect and render-draw-rects. --- sdl2/render.scm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/sdl2/render.scm b/sdl2/render.scm index d48d938..f937eca 100644 --- a/sdl2/render.scm +++ b/sdl2/render.scm @@ -167,7 +167,9 @@ color." "Draw RECT on RENDERER." (ffi:sdl-render-draw-rect (unwrap-renderer renderer) - ((@@ (sdl2 rect) unwrap-rect) rect))) + (if rect + ((@@ (sdl2 rect) unwrap-rect) rect) + %null-pointer))) (define (render-draw-rects renderer rects) "Draw RECTS on RENDERER." @@ -185,7 +187,9 @@ color." "Fill RECT on RENDERER." (ffi:sdl-render-fill-rect (unwrap-renderer renderer) - ((@@ (sdl2 rect) unwrap-rect) rect))) + (if rect + ((@@ (sdl2 rect) unwrap-rect) rect) + %null-pointer))) (define (render-fill-rects renderer rects) "Fill RECTS on RENDERER." -- cgit v1.2.3