From 6f86fd8400f6f68c5b91b9c790e0208c4a5d596c Mon Sep 17 00:00:00 2001 From: marting Date: Fri, 15 Oct 1999 18:35:10 +0000 Subject: [PATCH] events are now a client for low-interrupt --- scsh/event.scm | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) diff --git a/scsh/event.scm b/scsh/event.scm index e03c2f8..8a9c855 100644 --- a/scsh/event.scm +++ b/scsh/event.scm @@ -35,16 +35,15 @@ ;Initialize the system. (define (install-event-handlers!) (let loop ((count 0)) - (if (< count interrupt-count) - (let ((old-handler (vector-ref (interrupt-handlers-vector) count))) - (set-interrupt-handler - count - (lambda stuff - (register-interrupt count) - (apply old-handler stuff))) + (if (< count (number-of-interrupts)) + (begin + ;we're not interested in the setter-function here: + (low-interrupt-register + count + (lambda (enabled-interrupts) + (register-interrupt count))) (loop (+ count 1)))))) - ;;; extensions by JMG ;;; takes list of interrupt/xxx's