summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ice-9/debug.scm3
-rw-r--r--libguile/ChangeLog5
2 files changed, 7 insertions, 1 deletions
diff --git a/ice-9/debug.scm b/ice-9/debug.scm
index bfa39311d..96a2a1df7 100644
--- a/ice-9/debug.scm
+++ b/ice-9/debug.scm
@@ -87,7 +87,8 @@
(set! trace-level (+ trace-level 1)))
(let indent ((n trace-level))
(cond ((> n 1) (display "| " cep) (indent (- n 1)))))
- (display-application frame cep)))
+ (display-application frame cep)
+ (newline cep)))
;; It's not necessary to call the continuation since
;; execution will continue if the handler returns
;(cont #f)
diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index ff84df878..2272692ee 100644
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,8 @@
+1999-09-11 Mikael Djurfeldt <mdj@thalamus.nada.kth.se>
+
+ * backtrace.c (display_frame_expr): Don't print a newline.
+ (display_frame): Print the newline here instead.
+
1999-09-09 Mikael Djurfeldt <mdj@thalamus.nada.kth.se>
* procs.c (scm_setter): Signal WTA if handed an entity or operator