summaryrefslogtreecommitdiff
path: root/libguile/procs.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/procs.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/procs.c')
-rw-r--r--libguile/procs.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/procs.c b/libguile/procs.c
index 3eb9c247a..93e35ab6c 100644
--- a/libguile/procs.c
+++ b/libguile/procs.c
@@ -66,7 +66,7 @@ SCM
scm_c_define_subr (const char *name, long type, SCM (*fcn) ())
{
SCM subr = scm_c_make_subr (name, type, fcn);
- scm_define (SCM_SNAME (subr), subr);
+ scm_define (SCM_SUBR_NAME (subr), subr);
return subr;
}
@@ -93,7 +93,7 @@ scm_c_define_subr_with_generic (const char *name,
long type, SCM (*fcn) (), SCM *gf)
{
SCM subr = scm_c_make_subr_with_generic (name, type, fcn, gf);
- scm_define (SCM_SNAME (subr), subr);
+ scm_define (SCM_SUBR_NAME (subr), subr);
return subr;
}
@@ -237,7 +237,7 @@ SCM_DEFINE (scm_make_procedure_with_setter, "make-procedure-with-setter", 2, 0,
lookup */
switch (SCM_TYP7 (procedure)) {
case scm_tcs_subrs:
- name = SCM_SNAME (procedure);
+ name = SCM_SUBR_NAME (procedure);
break;
default:
name = scm_procedure_property (procedure, scm_sym_name);