From: Andy Wingo <wingo@pobox.com>
Date: Tue, 6 Dec 2011 18:05:52 +0000 (+0100)
Subject: fix scm_adjust_port_revealed_x FUNC_NAME
X-Git-Url: http://git.hcoop.net/bpt/guile.git/commitdiff_plain/f5b870d81650178a42e4794fd7ccc63751cb02cc

fix scm_adjust_port_revealed_x FUNC_NAME

* libguile/ports.c (scm_adjust_port_revealed_x): Fix FUNC_NAME.
---

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;