diff options
author | Ludovic Courtès <ludo@gnu.org> | 2009-02-17 23:29:44 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2009-03-02 00:20:44 +0100 |
commit | a5f83fd21d29d07ddb005962b37412b1e9aa5ffa (patch) | |
tree | 4481499de5a711af36a503665d59fcb27942eb93 /libguile/eval.i.c | |
parent | 54d14084e229f90b75475a866e3f458be30fa233 (diff) | |
download | guile-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.c | 10 |
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 |