mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 06:20:23 +02:00
Code Activity

(display_backtrace_body): Don't print "Backtrace:".

Browse source 
(scm_backtrace): Print "Backtrace:" here instead.
This commit is contained in:
Mikael Djurfeldt 1999-09-11 18:31:52 +00:00
parent 8be85ef1fb
commit 3a1f844725
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/backtrace.c
View file

@ -522,8 +522,6 @@ display_backtrace_body (struct display_backtrace_args *a)
for (i = 0; j > 0; ++i) j /= 10; for (i = 0; j > 0; ++i) j /= 10;
nfield = i ? i : 1; nfield = i ? i : 1;
scm_puts ("Backtrace:\n", a->port);
/* Print frames. */ /* Print frames. */
frame = scm_stack_ref (a->stack, SCM_MAKINUM (beg)); frame = scm_stack_ref (a->stack, SCM_MAKINUM (beg));
indentation = 1; indentation = 1;
@ -570,6 +568,7 @@ scm_backtrace ()
if (SCM_NFALSEP (the_last_stack)) if (SCM_NFALSEP (the_last_stack))
{ {
scm_newline (scm_cur_outp); scm_newline (scm_cur_outp);
scm_puts ("Backtrace:\n", scm_cur_outp);
scm_display_backtrace (the_last_stack, scm_display_backtrace (the_last_stack,
scm_cur_outp, scm_cur_outp,
SCM_UNDEFINED, SCM_UNDEFINED,