scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
scsh/event.scm
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:
count (low-interrupt-register
(lambda stuff count
(register-interrupt count) (lambda (enabled-interrupts)
(apply old-handler stuff))) (register-interrupt count)))
(loop (+ count 1)))))) (loop (+ count 1))))))
;;; extensions by JMG ;;; extensions by JMG
;;; takes list of interrupt/xxx's ;;; takes list of interrupt/xxx's