From 85691806346c9976b8438268cb32fd37e9cce887 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Fri, 8 Oct 1999 10:46:26 +0000 Subject: [PATCH] * throw.c (handler_message): Display backtrace if backtraces enabled. --- libguile/throw.c | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/libguile/throw.c b/libguile/throw.c index 816743391..8d1b4e481 100644 --- a/libguile/throw.c +++ b/libguile/throw.c @@ -466,6 +466,12 @@ handler_message (void *handler_data, SCM tag, SCM args) SCM parts = SCM_CADDR (args); SCM rest = SCM_CDDDR (args); + if (SCM_BACKTRACE_P && SCM_NFALSEP (stack)) + { + scm_puts ("Backtrace:\n", p); + scm_display_backtrace (stack, p, SCM_UNDEFINED, SCM_UNDEFINED); + scm_newline (p); + } scm_display_error (stack, p, subr, message, parts, rest); } else