1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-22 12:30:32 +02:00

fix scm_adjust_port_revealed_x FUNC_NAME

* libguile/ports.c (scm_adjust_port_revealed_x): Fix FUNC_NAME.
This commit is contained in:
Andy Wingo 2011-12-06 19:05:52 +01:00
parent c9caa6c88d
commit f5b870d816

View file

@ -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;