From 3821e81fd0b61e719b7d9582f2ffcc38078256af Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sat, 5 Dec 2020 15:31:53 -0500
Subject: render: Rename get-texture-alpha-mod to texture-alpha-mode.

---
 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 2e6cb9f..13a8800 100644
--- a/doc/api.texi
+++ b/doc/api.texi
@@ -1229,7 +1229,7 @@ Free the memory used by @var{texture}.
 Get color mod of @var{texture} as a list of the integers.
 @end deffn
 
-@deffn {Procedure} get-texture-alpha-mod texture
+@deffn {Procedure} texture-alpha-mod texture
 Get alpha mod of @var{texture} as a single integer.
 @end deffn
 
diff --git a/sdl2/render.scm b/sdl2/render.scm
index f7665b6..40ad7da 100644
--- a/sdl2/render.scm
+++ b/sdl2/render.scm
@@ -344,7 +344,7 @@ created with 'texture')"
   (unless (zero? (ffi:sdl-set-texture-alpha-mod (unwrap-texture texture) a))
     (sdl-error "set-texture-alpha-mod!" "Failed to set texture alpha mod")))
 
-(define (get-texture-alpha-mod texture)
+(define (texture-alpha-mod texture)
   "Get alpha mod of TEXTURE as a single integer."
   (let ((bv (make-bytevector 1)))
     (let ((result (ffi:sdl-get-texture-alpha-mod
-- 
cgit v1.2.3