summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1999-09-11 13:53:24 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1999-09-11 13:53:24 +0000
commit1ae6af28d94d32429bd6f19b61aeb49cdca5d246 (patch)
tree378a7be78b6ad26eb2d428d539cd4d3f0b9144b0
parentd61d2039265516bfe9f3d9546082574b6a559cfa (diff)
downloadguile-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.c2
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))