From a5f83fd21d29d07ddb005962b37412b1e9aa5ffa Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Tue, 17 Feb 2009 23:29:44 +0100 Subject: Mark `scm_gsubr_apply ()' as internal. * libguile/gsubr.h (scm_gsubr_apply): Renamed to... (scm_i_gsubr_apply): this. Marked as `SCM_INTERNAL'. Callers updated. --- libguile/gsubr.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'libguile/gsubr.c') diff --git a/libguile/gsubr.c b/libguile/gsubr.c index cc9bc39a5..c6a1c5d2c 100644 --- a/libguile/gsubr.c +++ b/libguile/gsubr.c @@ -179,8 +179,8 @@ scm_c_define_gsubr_with_generic (const char *name, SCM -scm_gsubr_apply (SCM self, SCM args) -#define FUNC_NAME "scm_gsubr_apply" +scm_i_gsubr_apply (SCM self, SCM args) +#define FUNC_NAME "scm_i_gsubr_apply" { SCM (*fcn)() = SCM_SUBRF (self); SCM v[SCM_GSUBR_MAX]; -- cgit v1.2.3