From f5b870d81650178a42e4794fd7ccc63751cb02cc Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Tue, 6 Dec 2011 19:05:52 +0100
Subject: [PATCH] fix scm_adjust_port_revealed_x FUNC_NAME

* libguile/ports.c (scm_adjust_port_revealed_x): Fix FUNC_NAME.
---
 libguile/ports.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libguile/ports.c b/libguile/ports.c
index 1aa5c6181..fcf4122a8 100644
--- a/libguile/ports.c
+++ b/libguile/ports.c
@@ -1188,7 +1188,7 @@ SCM_DEFINE (scm_adjust_port_revealed_x, "adjust-port-revealed!", 2, 0, 0,
            (SCM port, SCM addend),
 	    "Add @var{addend} to the revealed count of @var{port}.\n"
 	    "The return value is unspecified.")
-#define FUNC_NAME s_scm_set_port_revealed_x
+#define FUNC_NAME s_scm_adjust_port_revealed_x
 {
   scm_i_pthread_mutex_t *lock;
   int a;