From f812d7e579d1c521d985b41e09ff59df905c053d Mon Sep 17 00:00:00 2001 From: marting Date: Tue, 28 Sep 1999 23:53:23 +0000 Subject: [PATCH] fixed misplaced quotation mark and prevented installation of real-sighandler --- scsh/sighandlers.scm | 29 ++++++++++++++++------------- 1 file changed, 16 insertions(+), 13 deletions(-) diff --git a/scsh/sighandlers.scm b/scsh/sighandlers.scm index c46bb61..94bf213 100644 --- a/scsh/sighandlers.scm +++ b/scsh/sighandlers.scm @@ -104,13 +104,15 @@ (define (scsh-os-signal-handler-ref signal) (if (or (< signal 0) (> signal 32)) - (begin - (display "ill signum" in ref) - (display signal)) + (error "ill signum in scsh-os-signal-handler-ref" signal) (vector-ref scsh-os-signal-handlers-vector signal))) + +;; why is this called "int" ??? (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)) ((#f) noop-sig-handler) (else handler))) + ohandler)) - (cond ((and (not handler) ohandler ; Toggling from something - (int->signal int)) => ; to ignored. - (lambda (sig) - (%set-unix-signal-handler sig 0))) - ((and handler (not ohandler) ; Toggling from ignored - (int->signal int)) => ; to something. - (lambda (sig) - (%set-unix-signal-handler sig 2)))) + ; (cond ((and (not handler) ohandler ; Toggling from something +; (int->signal int)) => ; to ignored. +; (lambda (sig) +; (%set-unix-signal-handler sig 0))) +; ((and handler (not ohandler) ; Toggling from ignored +; (int->signal int)) => ; to something. +; (lambda (sig) +; (%set-unix-signal-handler sig 2)))) - ohandler)) +; ohandler)) (define (interrupt-handler int) (let ((handler (vector-ref (interrupt-handlers-vector) int)))