summaryrefslogtreecommitdiff
path: root/libguile/goops.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2009-06-19 11:20:34 +0200
committerAndy Wingo <wingo@pobox.com>2009-06-19 11:20:34 +0200
commitce471ab8b083a345af0f49e08f51f22dbfe58efe (patch)
tree5f09dabf6205ed8f92a369c2e3715b07d8c7298b /libguile/goops.c
parent96b73e84bbb6d88c73a99bf46450642d79612be0 (diff)
downloadguile-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.c4
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