mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-25 14:10:22 +02:00
Code Activity

* * boot-9.scm (using-readline?): New procedure: Returns #t if

Browse source 
readline is used by the repl run by this thread.
	(handle-system-error): Print "Backtrace:" before backtrace since
	this is no longer done by display-backtrace.
This commit is contained in:
Mikael Djurfeldt 1999-09-11 18:27:52 +00:00
parent 6373eb6f4e
commit 755457ec4a
1 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -2580,6 +2580,7 @@
((memq 'backtrace (debug-options-interface)) ((memq 'backtrace (debug-options-interface))
(run-hook before-backtrace-hook) (run-hook before-backtrace-hook)
(newline cep) (newline cep)
(display "Backtrace:\n")
(display-backtrace (fluid-ref the-last-stack) cep) (display-backtrace (fluid-ref the-last-stack) cep)
(newline cep) (newline cep)
(run-hook after-backtrace-hook))) (run-hook after-backtrace-hook)))
@ -2969,6 +2970,12 @@
;; (set-current-output-port outp) ;; (set-current-output-port outp)
;; (set-current-error-port errp) ;; (set-current-error-port errp)
(define using-readline?
(let ((using-readline? (make-fluid)))
(make-procedure-with-setter
(lambda () (fluid-ref using-readline?))
(lambda (v) (fluid-set! using-readline? v)))))
;; this is just (scm-style-repl) with a wrapper to install and remove ;; this is just (scm-style-repl) with a wrapper to install and remove
;; signal handlers. ;; signal handlers.
(define (top-repl) (define (top-repl)