mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-21 20:20:24 +02:00
Code Activity

* backtrace.c (scm_display_error): Bugfix: scm_procedure_p returns

Browse source 
a SCM boolean, not a C boolean.
This commit is contained in:
Marius Vollmer 1996-12-18 09:40:46 +00:00
parent 22c7f3c838
commit 016e2ce1d0
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/backtrace.c
View file

@ -193,7 +193,7 @@ scm_display_error (stack, port, subr, message, args, rest)
if (!(SCM_NIMP (source) && SCM_MEMOIZEDP (source))) if (!(SCM_NIMP (source) && SCM_MEMOIZEDP (source)))
source = SCM_FRAME_SOURCE (SCM_FRAME_PREV (current_frame)); source = SCM_FRAME_SOURCE (SCM_FRAME_PREV (current_frame));
if (SCM_FRAME_PROC_P (current_frame) if (SCM_FRAME_PROC_P (current_frame)
&& scm_procedure_p (SCM_FRAME_PROC (current_frame))) && scm_procedure_p (SCM_FRAME_PROC (current_frame)) == SCM_BOOL_T)
pname = scm_procedure_name (SCM_FRAME_PROC (current_frame)); pname = scm_procedure_name (SCM_FRAME_PROC (current_frame));
} }
if (!(SCM_NIMP (pname) && SCM_ROSTRINGP (pname))) if (!(SCM_NIMP (pname) && SCM_ROSTRINGP (pname)))