diff options
author | Andy Wingo <wingo@pobox.com> | 2009-06-19 11:20:34 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-06-19 11:20:34 +0200 |
commit | ce471ab8b083a345af0f49e08f51f22dbfe58efe (patch) | |
tree | 5f09dabf6205ed8f92a369c2e3715b07d8c7298b /libguile/eval.i.c | |
parent | 96b73e84bbb6d88c73a99bf46450642d79612be0 (diff) | |
download | guile-ce471ab8b083a345af0f49e08f51f22dbfe58efe.tar.gz |
rename SCM_SNAME to SCM_SUBR_NAME
* libguile/procs.h: Rename SCM_SNAME to SCM_SUBR_NAME.
* libguile/debug.c:
* libguile/eval.c:
* libguile/eval.i.c:
* libguile/goops.c:
* libguile/gsubr.c:
* libguile/print.c:
* libguile/procs.c: Update callers.
Diffstat (limited to 'libguile/eval.i.c')
-rw-r--r-- | libguile/eval.i.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/eval.i.c b/libguile/eval.i.c index 37fb7c787..99aa265de 100644 --- a/libguile/eval.i.c +++ b/libguile/eval.i.c @@ -1238,7 +1238,7 @@ dispatch: } SCM_WTA_DISPATCH_1 (*SCM_SUBR_GENERIC (proc), arg1, SCM_ARG1, - scm_i_symbol_chars (SCM_SNAME (proc))); + scm_i_symbol_chars (SCM_SUBR_NAME (proc))); case scm_tc7_cxr: RETURN (scm_i_chase_pairs (arg1, (scm_t_bits) SCM_SUBRF (proc))); case scm_tc7_rpsubr: @@ -1765,7 +1765,7 @@ tail: RETURN (scm_from_double (SCM_DSUBRF (proc) (scm_i_fraction2double (arg1)))); } SCM_WTA_DISPATCH_1 (*SCM_SUBR_GENERIC (proc), arg1, - SCM_ARG1, scm_i_symbol_chars (SCM_SNAME (proc))); + SCM_ARG1, scm_i_symbol_chars (SCM_SUBR_NAME (proc))); case scm_tc7_cxr: if (SCM_UNLIKELY (SCM_UNBNDP (arg1) || !scm_is_null (args))) scm_wrong_num_args (proc); |