mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 16:00:22 +02:00
Code Activity

* debug.c (scm_procedure_name): Try procedure property `name' for

Browse source 
compiled closures aswell.
This commit is contained in:
Mikael Djurfeldt 1996-10-14 20:28:18 +00:00
parent 473c250d0a
commit c6b8a41a55
1 changed files with 14 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

19
libguile/debug.c
View file

@ -210,6 +210,7 @@ scm_procedure_name (proc)
s_procedure_name); s_procedure_name);
switch (SCM_TYP7 (proc)) { switch (SCM_TYP7 (proc)) {
case scm_tcs_closures: case scm_tcs_closures:
case scm_tc7_cclo:
{ {
SCM name = scm_procedure_property (proc, scm_i_name); SCM name = scm_procedure_property (proc, scm_i_name);
#if 0 #if 0
@ -309,15 +310,23 @@ scm_m_start_stack (exp, env)
SCM env; SCM env;
{ {
SCM answer; SCM answer;
scm_debug_frame *old = scm_last_debug_frame; scm_debug_frame *oframe = scm_last_debug_frame;
scm_debug_frame vframe;
exp = SCM_CDR (exp); exp = SCM_CDR (exp);
SCM_ASSERT (SCM_NIMP (exp) && SCM_CONSP (exp) && SCM_NULLP (SCM_CDR (exp)), SCM_ASSERT (SCM_NIMP (exp)
&& SCM_CONSP (exp)
&& SCM_NIMP (SCM_CDR (exp))
&& SCM_CONSP (SCM_CDR (exp))
&& SCM_NULLP (SCM_CDDR (exp)),
exp, exp,
SCM_WNA, SCM_WNA,
s_start_stack); s_start_stack);
scm_last_debug_frame = 0; vframe.prev = 0;
answer = scm_eval_car (exp, env); vframe.status = SCM_VOIDFRAME;
scm_last_debug_frame = old; vframe.vect[0].id = scm_eval_car (exp, env);
scm_last_debug_frame = &vframe;
answer = scm_eval_car (SCM_CDR (exp), env);
scm_last_debug_frame = oframe;
return answer; return answer;
} }