From ce471ab8b083a345af0f49e08f51f22dbfe58efe Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 19 Jun 2009 11:20:34 +0200 Subject: 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. --- libguile/debug.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'libguile/debug.c') diff --git a/libguile/debug.c b/libguile/debug.c index 6e148ab32..71278c5e4 100644 --- a/libguile/debug.c +++ b/libguile/debug.c @@ -309,7 +309,7 @@ SCM_DEFINE (scm_procedure_name, "procedure-name", 1, 0, 0, SCM_VALIDATE_PROC (1, proc); switch (SCM_TYP7 (proc)) { case scm_tcs_subrs: - return SCM_SNAME (proc); + return SCM_SUBR_NAME (proc); default: { SCM name = scm_procedure_property (proc, scm_sym_name); -- cgit v1.2.3