events are now a client for low-interrupt

This commit is contained in:
marting 1999-10-15 18:35:10 +00:00
parent 6f17cf889a
commit 6f86fd8400
1 changed files with 7 additions and 8 deletions

View File

@ -35,16 +35,15 @@
;Initialize the system. ;Initialize the system.
(define (install-event-handlers!) (define (install-event-handlers!)
(let loop ((count 0)) (let loop ((count 0))
(if (< count interrupt-count) (if (< count (number-of-interrupts))
(let ((old-handler (vector-ref (interrupt-handlers-vector) count))) (begin
(set-interrupt-handler ;we're not interested in the setter-function here:
(low-interrupt-register
count count
(lambda stuff (lambda (enabled-interrupts)
(register-interrupt count) (register-interrupt count)))
(apply old-handler stuff)))
(loop (+ count 1)))))) (loop (+ count 1))))))
;;; extensions by JMG ;;; extensions by JMG
;;; takes list of interrupt/xxx's ;;; takes list of interrupt/xxx's