mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-04 22:40:25 +02:00
(top-repl): Use 2 as the limit when saving the stack.
(error-catching-loop): use call-with-blocked-asyncs and call-with-unblocked-asyncs instead of mask-signals and unmask-signals.
This commit is contained in:
parent
be2588b87d
commit
bb00edfa92
1 changed files with 5 additions and 6 deletions
|
@ -2122,8 +2122,7 @@
|
|||
(lambda ()
|
||||
(lazy-catch #t
|
||||
(lambda ()
|
||||
(dynamic-wind
|
||||
(lambda () (unmask-signals))
|
||||
(call-with-unblocked-asyncs
|
||||
(lambda ()
|
||||
(with-traps
|
||||
(lambda ()
|
||||
|
@ -2137,8 +2136,7 @@
|
|||
(set! first #f)
|
||||
(let loop ((v (thunk)))
|
||||
(loop (thunk)))
|
||||
#f)))
|
||||
(lambda () (mask-signals))))
|
||||
#f)))))
|
||||
|
||||
lazy-handler-dispatch))
|
||||
|
||||
|
@ -2194,7 +2192,8 @@
|
|||
(#t
|
||||
(error "sorry, not implemented")))))
|
||||
(set! batch-mode? (lambda () (not interactive)))
|
||||
(loop (lambda () #t))))
|
||||
(call-with-blocked-asyncs
|
||||
(lambda () (loop (lambda () #t))))))
|
||||
|
||||
;;(define the-last-stack (make-fluid)) Defined by scm_init_backtrace ()
|
||||
(define before-signal-stack (make-fluid))
|
||||
|
@ -2872,7 +2871,7 @@
|
|||
;; Make a backup copy of the stack
|
||||
(fluid-set! before-signal-stack
|
||||
(fluid-ref the-last-stack))
|
||||
(save-stack 1)
|
||||
(save-stack 2)
|
||||
(scm-error 'signal
|
||||
#f
|
||||
msg
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue