mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-07 18:30:25 +02:00
Code Activity

* backtrace.c (display_frame_expr): Don't print a newline.

Browse source 
(display_frame): Print the newline here instead.
This commit is contained in:
Mikael Djurfeldt 1999-09-11 13:53:24 +00:00
parent d61d203926
commit 1ae6af28d9
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

@ -303,7 +303,6 @@ display_frame_expr (hdr, exp, tlr, indentation, sport, port, pstate)
} }
else else
scm_iprin1 (exp, port, pstate); scm_iprin1 (exp, port, pstate);
scm_putc ('\n', port);
} }
static void display_application SCM_P ((SCM frame, int indentation, SCM sport, SCM port, scm_print_state *pstate)); static void display_application SCM_P ((SCM frame, int indentation, SCM sport, SCM port, scm_print_state *pstate));
@ -413,6 +412,7 @@ display_frame (frame, nfield, indentation, sport, port, pstate)
port, port,
pstate); pstate);
} }
scm_putc ('\n', port);
/* Announce missing frames? */ /* Announce missing frames? */
if (SCM_BACKWARDS_P && SCM_FRAME_OVERFLOW_P (frame)) if (SCM_BACKWARDS_P && SCM_FRAME_OVERFLOW_P (frame))