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/goops.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/goops.c')
-rw-r--r-- | libguile/goops.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/goops.c b/libguile/goops.c index f552b9e29..1548472cb 100644 --- a/libguile/goops.c +++ b/libguile/goops.c @@ -1862,7 +1862,7 @@ SCM_DEFINE (scm_enable_primitive_generic_x, "enable-primitive-generic!", 0, 0, 1 *SCM_SUBR_GENERIC (subr) = scm_make (scm_list_3 (scm_class_generic, k_name, - SCM_SNAME (subr))); + SCM_SUBR_NAME (subr))); subrs = SCM_CDR (subrs); } return SCM_UNSPECIFIED; @@ -1905,7 +1905,7 @@ scm_c_extend_primitive_generic (SCM extended, SCM extension) gf = *SCM_SUBR_GENERIC (extended); gext = scm_call_2 (SCM_VARIABLE_REF (scm_var_make_extended_generic), gf, - SCM_SNAME (extension)); + SCM_SUBR_NAME (extension)); SCM_SET_SUBR_GENERIC (extension, gext); } else |