From a49a27bedec4cdfc4bf52262006702171469a25c Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sat, 5 Dec 2020 15:10:25 -0500
Subject: render: Rename set-render-draw-color to set-renderer-draw-color!

---
 doc/api.texi    | 2 +-
 sdl2/render.scm | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/doc/api.texi b/doc/api.texi
index d7e6b5d..488d8f3 100644
--- a/doc/api.texi
+++ b/doc/api.texi
@@ -1137,7 +1137,7 @@ Set the drawing area for @var{renderer} to @var{rect}.
 Copy @var{texture} to the rendering target of @var{renderer}.
 @end deffn
 
-@deffn {Procedure} set-render-draw-color renderer r g b a
+@deffn {Procedure} set-renderer-draw-color! renderer r g b a
 Set color of @var{renderer} to the 32-bit color defined by the 8-bit
 color channels @var{r}, @var{g}, @var{b}, @var{a}.  Each color channel
 value is in the range [0, 255].
diff --git a/sdl2/render.scm b/sdl2/render.scm
index 575c9ae..4d83d0c 100644
--- a/sdl2/render.scm
+++ b/sdl2/render.scm
@@ -190,7 +190,7 @@ disable it."
    (unwrap-renderer renderer)
    ((@@ (sdl2 blend-mode) blend-mode-bitmask) blend-mode)))
 
-(define (set-render-draw-color renderer r g b a)
+(define (set-renderer-draw-color! renderer r g b a)
   "Set draw color of RENDERER."
   (ffi:sdl-set-render-draw-color (unwrap-renderer renderer) r g b a))
 
-- 
cgit v1.2.3