diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-09-11 13:53:24 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-09-11 13:53:24 +0000 |
commit | 1ae6af28d94d32429bd6f19b61aeb49cdca5d246 (patch) | |
tree | 378a7be78b6ad26eb2d428d539cd4d3f0b9144b0 | |
parent | d61d2039265516bfe9f3d9546082574b6a559cfa (diff) | |
download | guile-1ae6af28d94d32429bd6f19b61aeb49cdca5d246.tar.gz |
* backtrace.c (display_frame_expr): Don't print a newline.
(display_frame): Print the newline here instead.
-rw-r--r-- | libguile/backtrace.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/backtrace.c b/libguile/backtrace.c index 7e07a1317..14270963c 100644 --- a/libguile/backtrace.c +++ b/libguile/backtrace.c @@ -303,7 +303,6 @@ display_frame_expr (hdr, exp, tlr, indentation, sport, port, pstate) } else 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)); @@ -413,6 +412,7 @@ display_frame (frame, nfield, indentation, sport, port, pstate) port, pstate); } + scm_putc ('\n', port); /* Announce missing frames? */ if (SCM_BACKWARDS_P && SCM_FRAME_OVERFLOW_P (frame)) |