diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-03-12 08:06:49 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-03-12 08:06:49 +0000 |
commit | a726dd9da595d1d496a0a22f7e39ba6237001e6a (patch) | |
tree | a1978d586665ee39c3d850251b320bf1ab9d998f /libguile/debug.c | |
parent | 963561f7800c042648308c210332c055281d2644 (diff) | |
download | guile-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.c | 9 |
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; } } |