From 3a1f8447252f70d85d6786a243a5f481085f548f Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Sat, 11 Sep 1999 18:31:52 +0000 Subject: [PATCH] (display_backtrace_body): Don't print "Backtrace:". (scm_backtrace): Print "Backtrace:" here instead. --- libguile/backtrace.c | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/libguile/backtrace.c b/libguile/backtrace.c index 14270963c..a26267509 100644 --- a/libguile/backtrace.c +++ b/libguile/backtrace.c @@ -522,8 +522,6 @@ display_backtrace_body (struct display_backtrace_args *a) for (i = 0; j > 0; ++i) j /= 10; nfield = i ? i : 1; - scm_puts ("Backtrace:\n", a->port); - /* Print frames. */ frame = scm_stack_ref (a->stack, SCM_MAKINUM (beg)); indentation = 1; @@ -570,6 +568,7 @@ scm_backtrace () if (SCM_NFALSEP (the_last_stack)) { scm_newline (scm_cur_outp); + scm_puts ("Backtrace:\n", scm_cur_outp); scm_display_backtrace (the_last_stack, scm_cur_outp, SCM_UNDEFINED,