From 8eefa1f46503ef57b7714183b926dd453f4efe64 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sat, 5 Dec 2020 15:32:21 -0500
Subject: render: Rename get-texture-color-mod to texture-color-mod.

---
 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 13a8800..c10cd8d 100644
--- a/doc/api.texi
+++ b/doc/api.texi
@@ -1225,7 +1225,7 @@ Convert @var{surface} to a texture suitable for @var{renderer}.
 Free the memory used by @var{texture}.
 @end deffn
 
-@deffn {Procedure} get-texture-color-mod texture
+@deffn {Procedure} texture-color-mod texture
 Get color mod of @var{texture} as a list of the integers.
 @end deffn
 
diff --git a/sdl2/render.scm b/sdl2/render.scm
index 40ad7da..132419c 100644
--- a/sdl2/render.scm
+++ b/sdl2/render.scm
@@ -355,7 +355,7 @@ created with 'texture')"
 
       (bytevector-u8-ref bv 0))))
 
-(define (get-texture-color-mod texture)
+(define (texture-color-mod texture)
   "Get color mod of TEXTURE as a list of the integers."
   (let ((bv (make-bytevector 3)))
     (let ((result (ffi:sdl-get-texture-color-mod
-- 
cgit v1.2.3