mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 22:10:21 +02:00
Code Activity

* backtrace.c (display_error_body): The current frame does not

Browse source 
always have a parent frame; consider a function called directly
from the MAIN_FUNC passed to scm_boot_guile.  (Thanks to Maciej
Stachowiak.)
This commit is contained in:
Jim Blandy 1998-10-04 16:44:34 +00:00
parent 533149475d
commit a88a4c8a6f
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/backtrace.c
View file

@ -195,6 +195,8 @@ display_error_body (struct display_error_args *a)
SCM current_frame = SCM_BOOL_F;
SCM source = SCM_BOOL_F;
SCM pname = SCM_BOOL_F;
SCM prev_frame = SCM_BOOL_F;
if (SCM_DEBUGGINGP
&& SCM_NIMP (a->stack)
&& SCM_STACKP (a->stack)
@ -202,8 +204,10 @@ display_error_body (struct display_error_args *a)
{
current_frame = scm_stack_ref (a->stack, SCM_INUM0);
source = SCM_FRAME_SOURCE (current_frame);
if (!(SCM_NIMP (source) && SCM_MEMOIZEDP (source)))
source = SCM_FRAME_SOURCE (SCM_FRAME_PREV (current_frame));
prev_frame = SCM_FRAME_PREV (current_frame);
if (!(SCM_NIMP (source) && SCM_MEMOIZEDP (source))
&& prev_frame != SCM_BOOL_F)
source = SCM_FRAME_SOURCE (prev_frame);
if (SCM_FRAME_PROC_P (current_frame)
&& scm_procedure_p (SCM_FRAME_PROC (current_frame)) == SCM_BOOL_T)
pname = scm_procedure_name (SCM_FRAME_PROC (current_frame));