mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

Mark `scm_gsubr_apply ()' as internal.

Browse source 
* libguile/gsubr.h (scm_gsubr_apply): Renamed to...
  (scm_i_gsubr_apply): this.  Marked as `SCM_INTERNAL'.  Callers
  updated.
This commit is contained in:
Ludovic Courtès 2009-02-17 23:29:44 +01:00
parent 54d14084e2
commit a5f83fd21d
3 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/eval.i.c
View file

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

4
libguile/gsubr.c
View file

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

2
libguile/gsubr.h
View file

@ -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 */