summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1999-09-11 13:54:15 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1999-09-11 13:54:15 +0000
commit08cc62c7d91de170838536d938a00ce980182d79 (patch)
tree6de2d35b064ea63f2662683e30f7d2445f0ade21
parent1ae6af28d94d32429bd6f19b61aeb49cdca5d246 (diff)
downloadguile-08cc62c7d91de170838536d938a00ce980182d79.tar.gz
*** empty log message ***
-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