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 1aa5c61..fcf4122 100644 (file)
--- 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;