diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-09-11 13:54:15 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-09-11 13:54:15 +0000 |
commit | 08cc62c7d91de170838536d938a00ce980182d79 (patch) | |
tree | 6de2d35b064ea63f2662683e30f7d2445f0ade21 | |
parent | 1ae6af28d94d32429bd6f19b61aeb49cdca5d246 (diff) | |
download | guile-08cc62c7d91de170838536d938a00ce980182d79.tar.gz |
*** empty log message ***
-rw-r--r-- | ice-9/debug.scm | 3 | ||||
-rw-r--r-- | libguile/ChangeLog | 5 |
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 |