summaryrefslogtreecommitdiff
path: root/libguile/debug.c
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1999-03-12 08:06:49 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1999-03-12 08:06:49 +0000
commita726dd9da595d1d496a0a22f7e39ba6237001e6a (patch)
treea1978d586665ee39c3d850251b320bf1ab9d998f /libguile/debug.c
parent963561f7800c042648308c210332c055281d2644 (diff)
downloadguile-a726dd9da595d1d496a0a22f7e39ba6237001e6a.tar.gz
* debug.c (scm_procedure_name): Use name property in the default
case.
Diffstat (limited to 'libguile/debug.c')
-rw-r--r--libguile/debug.c9
1 files 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;
}
}