2122 |
(lambda () |
(lambda () |
2123 |
(lazy-catch #t |
(lazy-catch #t |
2124 |
(lambda () |
(lambda () |
2125 |
(dynamic-wind |
(call-with-unblocked-asyncs |
|
(lambda () (unmask-signals)) |
|
2126 |
(lambda () |
(lambda () |
2127 |
(with-traps |
(with-traps |
2128 |
(lambda () |
(lambda () |
2136 |
(set! first #f) |
(set! first #f) |
2137 |
(let loop ((v (thunk))) |
(let loop ((v (thunk))) |
2138 |
(loop (thunk))) |
(loop (thunk))) |
2139 |
#f))) |
#f))))) |
|
(lambda () (mask-signals)))) |
|
2140 |
|
|
2141 |
lazy-handler-dispatch)) |
lazy-handler-dispatch)) |
2142 |
|
|
2192 |
(#t |
(#t |
2193 |
(error "sorry, not implemented"))))) |
(error "sorry, not implemented"))))) |
2194 |
(set! batch-mode? (lambda () (not interactive))) |
(set! batch-mode? (lambda () (not interactive))) |
2195 |
(loop (lambda () #t)))) |
(call-with-blocked-asyncs |
2196 |
|
(lambda () (loop (lambda () #t)))))) |
2197 |
|
|
2198 |
;;(define the-last-stack (make-fluid)) Defined by scm_init_backtrace () |
;;(define the-last-stack (make-fluid)) Defined by scm_init_backtrace () |
2199 |
(define before-signal-stack (make-fluid)) |
(define before-signal-stack (make-fluid)) |
2871 |
;; Make a backup copy of the stack |
;; Make a backup copy of the stack |
2872 |
(fluid-set! before-signal-stack |
(fluid-set! before-signal-stack |
2873 |
(fluid-ref the-last-stack)) |
(fluid-ref the-last-stack)) |
2874 |
(save-stack 1) |
(save-stack 2) |
2875 |
(scm-error 'signal |
(scm-error 'signal |
2876 |
#f |
#f |
2877 |
msg |
msg |