mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +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.proc = proc;
debug.info->a.args = SCM_EOL; debug.info->a.args = SCM_EOL;
#endif #endif
RETURN (scm_gsubr_apply (proc, SCM_EOL)); RETURN (scm_i_gsubr_apply (proc, SCM_EOL));
case scm_tc7_pws: case scm_tc7_pws:
proc = SCM_PROCEDURE (proc); proc = SCM_PROCEDURE (proc);
#ifdef DEVAL #ifdef DEVAL
@ -1248,7 +1248,7 @@ dispatch:
debug.info->a.args = scm_cons (arg1, debug.info->a.args); debug.info->a.args = scm_cons (arg1, debug.info->a.args);
debug.info->a.proc = proc; debug.info->a.proc = proc;
#endif #endif
RETURN (scm_gsubr_apply (proc, scm_list_1 (arg1))); RETURN (scm_i_gsubr_apply (proc, scm_list_1 (arg1)));
case scm_tc7_pws: case scm_tc7_pws:
proc = SCM_PROCEDURE (proc); proc = SCM_PROCEDURE (proc);
#ifdef DEVAL #ifdef DEVAL
@ -1348,9 +1348,9 @@ dispatch:
cclon: cclon:
case scm_tc7_gsubr: case scm_tc7_gsubr:
#ifdef DEVAL #ifdef DEVAL
RETURN (scm_gsubr_apply (proc, debug.info->a.args)); RETURN (scm_i_gsubr_apply (proc, debug.info->a.args));
#else #else
RETURN (scm_gsubr_apply (proc, RETURN (scm_i_gsubr_apply (proc,
scm_cons2 (arg1, arg2, scm_cons2 (arg1, arg2,
scm_ceval_args (x, env, scm_ceval_args (x, env,
proc)))); proc))));
@ -1865,7 +1865,7 @@ tail:
#else #else
args = (SCM_UNBNDP(arg1) ? SCM_EOL : scm_cons (arg1, args)); args = (SCM_UNBNDP(arg1) ? SCM_EOL : scm_cons (arg1, args));
#endif #endif
RETURN (scm_gsubr_apply (proc, args)); RETURN (scm_i_gsubr_apply (proc, args));
case scm_tc7_pws: case scm_tc7_pws:
proc = SCM_PROCEDURE (proc); proc = SCM_PROCEDURE (proc);
#ifdef DEVAL #ifdef DEVAL

4
libguile/gsubr.c
View file

@ -179,8 +179,8 @@ scm_c_define_gsubr_with_generic (const char *name,
SCM SCM
scm_gsubr_apply (SCM self, SCM args) scm_i_gsubr_apply (SCM self, SCM args)
#define FUNC_NAME "scm_gsubr_apply" #define FUNC_NAME "scm_i_gsubr_apply"
{ {
SCM (*fcn)() = SCM_SUBRF (self); SCM (*fcn)() = SCM_SUBRF (self);
SCM v[SCM_GSUBR_MAX]; 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, int req, int opt, int rst,
SCM (*fcn) (), SCM *gf); 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); SCM_INTERNAL void scm_init_gsubr (void);
#endif /* SCM_GSUBR_H */ #endif /* SCM_GSUBR_H */