diff options
Diffstat (limited to 'libguile/debug.c')
-rw-r--r-- | libguile/debug.c | 2 |
1 files changed, 1 insertions, 1 deletions
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); |