summaryrefslogtreecommitdiff
path: root/libguile/eval.i.c
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2009-02-17 23:29:44 +0100
committerLudovic Courtès <ludo@gnu.org>2009-03-02 00:20:44 +0100
commita5f83fd21d29d07ddb005962b37412b1e9aa5ffa (patch)
tree4481499de5a711af36a503665d59fcb27942eb93 /libguile/eval.i.c
parent54d14084e229f90b75475a866e3f458be30fa233 (diff)
downloadguile-a5f83fd21d29d07ddb005962b37412b1e9aa5ffa.tar.gz
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.
Diffstat (limited to 'libguile/eval.i.c')
-rw-r--r--libguile/eval.i.c10
1 files changed, 5 insertions, 5 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