diff options
| -rw-r--r-- | sdl2/render.scm | 8 |
1 files 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." |