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

  a SCM boolean, not a C boolean.

diff --git a/libguile/backtrace.c b/libguile/backtrace.c
index d3099b7..365b6ca 100644 (file)
--- a/libguile/backtrace.c
+++ b/libguile/backtrace.c
@@ -193,7 +193,7 @@ scm_display_error (stack, port, subr, message, args, rest)
       if (!(SCM_NIMP (source) && SCM_MEMOIZEDP (source)))
        source = SCM_FRAME_SOURCE (SCM_FRAME_PREV (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));
     }
   if (!(SCM_NIMP (pname) && SCM_ROSTRINGP (pname)))