mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 07:30:32 +02:00
Code Activity

* procprop.h: Added declaration of scm_i_inner_name.

Browse source 
* gsubr.c: New global symbol scm_i_inner_name.

* debug.c (scm_procedure_name): Try procedure property
`inner-name' if `name' fails.

* print.c (scm_iprin1): Use scm_macro_name.

* eval.c (scm_m_define): Give names to macros as well; Only the
first top-level definition gives a procedure/macro a name.
Otherwise confusing names can turn up in backtraces.
(SCM_CEVAL): SCM_IM_DEFINE: Set `inner-name' property instead of
`name'; Give names to macros as well.

* procs.c (scm_closure_p), print.c (scm_iprin1), eval.c
(scm_macro_transformer): Use SCM_CLOSUREP instead of
scm_closure_p.
This commit is contained in:
Mikael Djurfeldt 1997-09-11 00:09:57 +00:00
parent 2c63000098
commit 80ea260cdf
7 changed files with 64 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/debug.c
View file

@ -214,11 +214,13 @@ scm_procedure_name (proc)
{
SCM name = scm_procedure_property (proc, scm_i_name);
#if 0
/* Procedure property scm_i_procname not implemented yet... */
/* Source property scm_i_procname not implemented yet... */
SCM name = scm_source_property (SCM_CAR (SCM_CDR (SCM_CODE (proc))), scm_i_procname);
if (SCM_FALSEP (name))
name = scm_procedure_property (proc, scm_i_name);
#endif
if (SCM_FALSEP (name))
name = scm_procedure_property (proc, scm_i_inner_name);
return name;
}
case scm_tcs_subrs: