/[guile]/guile/guile-core/ice-9/boot-9.scm
ViewVC logotype

Diff of /guile/guile-core/ice-9/boot-9.scm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.286 by rlb, Sat Oct 5 04:10:48 2002 UTC revision 1.287 by mvo, Wed Oct 9 22:47:34 2002 UTC
# Line 2122  Line 2122 
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 ()
# Line 2137  Line 2136 
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    
# Line 2194  Line 2192 
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))
# Line 2872  Line 2871 
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

Legend:
Removed from v.1.286  
changed lines
  Added in v.1.287

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26