mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-30 00:40:20 +02:00
Code Activity

*** empty log message ***

Browse source
This commit is contained in:
Mikael Djurfeldt 1999-09-11 13:54:15 +00:00
parent 1ae6af28d9
commit 08cc62c7d9
2 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
ice-9/debug.scm
View file

@ -87,7 +87,8 @@
(set! trace-level (+ trace-level 1))) (set! trace-level (+ trace-level 1)))
(let indent ((n trace-level)) (let indent ((n trace-level))
(cond ((> n 1) (display "| " cep) (indent (- n 1))))) (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 ;; It's not necessary to call the continuation since
;; execution will continue if the handler returns ;; execution will continue if the handler returns
;(cont #f) ;(cont #f)

5
libguile/ChangeLog
View file

@ -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> 1999-09-09 Mikael Djurfeldt <mdj@thalamus.nada.kth.se>
* procs.c (scm_setter): Signal WTA if handed an entity or operator * procs.c (scm_setter): Signal WTA if handed an entity or operator