fixed misplaced quotation mark and prevented installation of real-sighandler
This commit is contained in:
parent
768fc0b2f3
commit
f812d7e579
|
@ -104,13 +104,15 @@
|
||||||
|
|
||||||
(define (scsh-os-signal-handler-ref signal)
|
(define (scsh-os-signal-handler-ref signal)
|
||||||
(if (or (< signal 0) (> signal 32))
|
(if (or (< signal 0) (> signal 32))
|
||||||
(begin
|
(error "ill signum in scsh-os-signal-handler-ref" signal)
|
||||||
(display "ill signum" in ref)
|
|
||||||
(display signal))
|
|
||||||
(vector-ref scsh-os-signal-handlers-vector signal)))
|
(vector-ref scsh-os-signal-handlers-vector signal)))
|
||||||
|
|
||||||
|
|
||||||
|
;; why is this called "int" ???
|
||||||
(define (set-scsh-os-signal-handler! int handler)
|
(define (set-scsh-os-signal-handler! int handler)
|
||||||
(vector-set! scsh-os-signal-handlers-vector int handler))
|
(if (or (< int 0) (> int 32))
|
||||||
|
(error "ill signum in set-scsh-os-signal-handler!" int)
|
||||||
|
(vector-set! scsh-os-signal-handlers-vector int handler)))
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
@ -238,17 +240,18 @@
|
||||||
((#t) (vector-ref default-int-handler-vec int))
|
((#t) (vector-ref default-int-handler-vec int))
|
||||||
((#f) noop-sig-handler)
|
((#f) noop-sig-handler)
|
||||||
(else handler)))
|
(else handler)))
|
||||||
|
ohandler))
|
||||||
|
|
||||||
(cond ((and (not handler) ohandler ; Toggling from something
|
; (cond ((and (not handler) ohandler ; Toggling from something
|
||||||
(int->signal int)) => ; to ignored.
|
; (int->signal int)) => ; to ignored.
|
||||||
(lambda (sig)
|
; (lambda (sig)
|
||||||
(%set-unix-signal-handler sig 0)))
|
; (%set-unix-signal-handler sig 0)))
|
||||||
((and handler (not ohandler) ; Toggling from ignored
|
; ((and handler (not ohandler) ; Toggling from ignored
|
||||||
(int->signal int)) => ; to something.
|
; (int->signal int)) => ; to something.
|
||||||
(lambda (sig)
|
; (lambda (sig)
|
||||||
(%set-unix-signal-handler sig 2))))
|
; (%set-unix-signal-handler sig 2))))
|
||||||
|
|
||||||
ohandler))
|
; ohandler))
|
||||||
|
|
||||||
(define (interrupt-handler int)
|
(define (interrupt-handler int)
|
||||||
(let ((handler (vector-ref (interrupt-handlers-vector) int)))
|
(let ((handler (vector-ref (interrupt-handlers-vector) int)))
|
||||||
|
|
Loading…
Reference in New Issue