From a726dd9da595d1d496a0a22f7e39ba6237001e6a Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Fri, 12 Mar 1999 08:06:49 +0000 Subject: [PATCH] * debug.c (scm_procedure_name): Use name property in the default case. --- libguile/debug.c | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/libguile/debug.c b/libguile/debug.c index 12b3a8a16..74087da6f 100644 --- a/libguile/debug.c +++ b/libguile/debug.c @@ -431,8 +431,9 @@ scm_procedure_name (proc) SCM_ARG1, s_procedure_name); switch (SCM_TYP7 (proc)) { - case scm_tcs_closures: - case scm_tc7_cclo: + case scm_tcs_subrs: + return SCM_SNAME (proc); + default: { SCM name = scm_procedure_property (proc, scm_i_name); #if 0 @@ -445,10 +446,6 @@ scm_procedure_name (proc) name = scm_procedure_property (proc, scm_i_inner_name); return name; } - case scm_tcs_subrs: - return SCM_SNAME (proc); - default: - return SCM_BOOL_F; } }