diff options
-rw-r--r-- | libguile/eval.i.c | 10 | ||||
-rw-r--r-- | libguile/gsubr.c | 4 | ||||
-rw-r--r-- | libguile/gsubr.h | 2 |
3 files changed, 8 insertions, 8 deletions
diff --git a/libguile/eval.i.c b/libguile/eval.i.c index f182d3c8f..79e77da1b 100644 --- a/libguile/eval.i.c +++ b/libguile/eval.i.c @@ -1129,7 +1129,7 @@ dispatch: debug.info->a.proc = proc; debug.info->a.args = SCM_EOL; #endif - RETURN (scm_gsubr_apply (proc, SCM_EOL)); + RETURN (scm_i_gsubr_apply (proc, SCM_EOL)); case scm_tc7_pws: proc = SCM_PROCEDURE (proc); #ifdef DEVAL @@ -1248,7 +1248,7 @@ dispatch: debug.info->a.args = scm_cons (arg1, debug.info->a.args); debug.info->a.proc = proc; #endif - RETURN (scm_gsubr_apply (proc, scm_list_1 (arg1))); + RETURN (scm_i_gsubr_apply (proc, scm_list_1 (arg1))); case scm_tc7_pws: proc = SCM_PROCEDURE (proc); #ifdef DEVAL @@ -1348,9 +1348,9 @@ dispatch: cclon: case scm_tc7_gsubr: #ifdef DEVAL - RETURN (scm_gsubr_apply (proc, debug.info->a.args)); + RETURN (scm_i_gsubr_apply (proc, debug.info->a.args)); #else - RETURN (scm_gsubr_apply (proc, + RETURN (scm_i_gsubr_apply (proc, scm_cons2 (arg1, arg2, scm_ceval_args (x, env, proc)))); @@ -1865,7 +1865,7 @@ tail: #else args = (SCM_UNBNDP(arg1) ? SCM_EOL : scm_cons (arg1, args)); #endif - RETURN (scm_gsubr_apply (proc, args)); + RETURN (scm_i_gsubr_apply (proc, args)); case scm_tc7_pws: proc = SCM_PROCEDURE (proc); #ifdef DEVAL 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]; diff --git a/libguile/gsubr.h b/libguile/gsubr.h index 9c9b7d96c..42a5c1886 100644 --- a/libguile/gsubr.h +++ b/libguile/gsubr.h @@ -48,7 +48,7 @@ SCM_API SCM scm_c_define_gsubr_with_generic (const char *name, int req, int opt, int rst, SCM (*fcn) (), SCM *gf); -SCM_API SCM scm_gsubr_apply (SCM proc, SCM args); +SCM_INTERNAL SCM scm_i_gsubr_apply (SCM proc, SCM args); SCM_INTERNAL void scm_init_gsubr (void); #endif /* SCM_GSUBR_H */ |