mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

* debug.c (scm_procedure_name): Use name property in the default

Browse source 
case.
This commit is contained in:
Mikael Djurfeldt 1999-03-12 08:06:49 +00:00
parent 963561f780
commit a726dd9da5
1 changed files with 3 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/debug.c
View file

@ -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;
}
}