mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-15 16:20:17 +02:00
Code Activity

* debug.scm: Removed `display-application'. (Replaced by

Browse source 
primitive procedure.)
This commit is contained in:
Mikael Djurfeldt 1997-03-08 02:29:45 +00:00
parent cc7f066cd0
commit 3b326536e7
1 changed files with 1 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

14
ice-9/debug.scm
View file

@ -167,8 +167,7 @@
(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)))
(debug-enable 'trace) (debug-enable 'trace)
;; 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
@ -185,17 +184,6 @@
(newline cep))) (newline cep)))
(debug-enable 'trace)) (debug-enable 'trace))
(define (display-application frame port)
(display #\[ port)
(display (car (unmemoize (frame-source frame))) port)
(let loop ((args (frame-arguments frame)))
(if (not (null? args))
(begin
(display #\space port)
(write (car args) port)
(loop (cdr args)))))
(display #\] port))
;;; A fix to get the error handling working together with the module system. ;;; A fix to get the error handling working together with the module system.
;;; ;;;