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

* boot-9.scm (backtrace): Removed. (A C version now exists in

Browse source 
backtrace.c.)
This commit is contained in:
Mikael Djurfeldt 1997-02-10 01:05:50 +00:00
parent 5aab5d961c
commit d590bbf6d8
2 changed files with 22 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

5
ice-9/ChangeLog
View file

@ -1,3 +1,8 @@
Mon Feb 10 03:01:48 1997 Mikael Djurfeldt <mdj@kenneth>
* boot-9.scm (backtrace): Removed. (A C version now exists in
backtrace.c.)
Fri Jan 24 06:05:36 1997 Gary Houston <ghouston@actrix.gen.nz>
* boot-9.scm (read-line!, read-delimited!, read-delimited,

33
ice-9/boot-9.scm
View file

@ -2191,7 +2191,7 @@
(and next (loop next))))
(loop (lambda () #t)))
(define the-last-stack #f)
;;(define the-last-stack #f) Defined by scm_init_backtrace ()
(define stack-saved? #f)
(define (save-stack . narrowing)
@ -2240,22 +2240,23 @@
(define (quit . args)
(apply throw 'quit args))
(define has-shown-backtrace-hint? #f)
;;(define has-shown-backtrace-hint? #f) Defined by scm_init_backtrace ()
(define (backtrace)
(if the-last-stack
(begin
(newline)
(display-backtrace the-last-stack (current-output-port))
(newline)
(if (and (not has-shown-backtrace-hint?)
(not (memq 'backtrace (debug-options-interface))))
(begin
(display
"Type \"(debug-enable 'backtrace)\" if you would like a backtrace
automatically if an error occurs in the future.\n")
(set! has-shown-backtrace-hint? #t))))
(display "No backtrace available.\n")))
;; Replaced by C code:
;;(define (backtrace)
;; (if the-last-stack
;; (begin
;; (newline)
;; (display-backtrace the-last-stack (current-output-port))
;; (newline)
;; (if (and (not has-shown-backtrace-hint?)
;; (not (memq 'backtrace (debug-options-interface))))
;; (begin
;; (display
;;"Type \"(debug-enable 'backtrace)\" if you would like a backtrace
;;automatically if an error occurs in the future.\n")
;; (set! has-shown-backtrace-hint? #t))))
;; (display "No backtrace available.\n")))
(define (error-catching-repl r e p)
(error-catching-loop (lambda () (p (e (r))))))