From cabf1b31a3a2c0bdb3a936ceda86491999b262b1 Mon Sep 17 00:00:00 2001
From: Neil Jerram <neil@ossau.uklinux.net>
Date: Fri, 5 Jun 2009 22:54:45 +0100
Subject: [PATCH] Fix `Mismatching FUNC_NAME' warning from
 guile-func-name-check

* libguile/bytevectors.c (FUNC_NAME): Change to match function name.
---
 libguile/bytevectors.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libguile/bytevectors.c b/libguile/bytevectors.c
index ced1b082f..1de4db065 100644
--- a/libguile/bytevectors.c
+++ b/libguile/bytevectors.c
@@ -577,7 +577,7 @@ SCM_DEFINE (scm_bytevector_u8_set_x, "bytevector-u8-set!", 3, 0, 0,
 SCM_DEFINE (scm_bytevector_s8_set_x, "bytevector-s8-set!", 3, 0, 0,
 	    (SCM bv, SCM index, SCM value),
 	    "Return the octet located at @var{index} in @var{bv}.")
-#define FUNC_NAME s_scm_bytevector_u8_set_x
+#define FUNC_NAME s_scm_bytevector_s8_set_x
 {
   INTEGER_NATIVE_SET (8, signed);
 }