From 08cc62c7d91de170838536d938a00ce980182d79 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Sat, 11 Sep 1999 13:54:15 +0000 Subject: [PATCH] *** empty log message *** --- ice-9/debug.scm | 3 ++- libguile/ChangeLog | 5 +++++ 2 files changed, 7 insertions(+), 1 deletion(-) 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 + + * backtrace.c (display_frame_expr): Don't print a newline. + (display_frame): Print the newline here instead. + 1999-09-09 Mikael Djurfeldt * procs.c (scm_setter): Signal WTA if handed an entity or operator