*** empty log message ***

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)

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