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

(top-repl): Use 2 as the limit when saving the stack.

Browse source 
(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:
Marius Vollmer 2002-10-09 22:47:34 +00:00
parent be2588b87d
commit bb00edfa92
1 changed files with 5 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -2122,8 +2122,7 @@
(lambda () (lambda ()
(lazy-catch #t (lazy-catch #t
(lambda () (lambda ()
(dynamic-wind (call-with-unblocked-asyncs
(lambda () (unmask-signals))
(lambda () (lambda ()
(with-traps (with-traps
(lambda () (lambda ()
@ -2137,8 +2136,7 @@
(set! first #f) (set! first #f)
(let loop ((v (thunk))) (let loop ((v (thunk)))
(loop (thunk))) (loop (thunk)))
#f))) #f)))))
(lambda () (mask-signals))))
lazy-handler-dispatch)) lazy-handler-dispatch))
@ -2194,7 +2192,8 @@
(#t (#t
(error "sorry, not implemented"))))) (error "sorry, not implemented")))))
(set! batch-mode? (lambda () (not interactive))) (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 the-last-stack (make-fluid)) Defined by scm_init_backtrace ()
(define before-signal-stack (make-fluid)) (define before-signal-stack (make-fluid))
@ -2872,7 +2871,7 @@
;; Make a backup copy of the stack ;; Make a backup copy of the stack
(fluid-set! before-signal-stack (fluid-set! before-signal-stack
(fluid-ref the-last-stack)) (fluid-ref the-last-stack))
(save-stack 1) (save-stack 2)
(scm-error 'signal (scm-error 'signal
#f #f
msg msg