events are now a client for low-interrupt

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
+    (if (< count (number-of-interrupts))  
+	(begin 
+	;we're not interested in the setter-function here:
+	  (low-interrupt-register  
 	   count  
-	   (lambda stuff
-	     (register-interrupt count)
-	     (apply old-handler stuff)))
+	   (lambda (enabled-interrupts) 
+	     (register-interrupt count)))
 	  (loop (+ count 1))))))
 
-
 ;;; extensions by JMG
 
 ;;; takes list of interrupt/xxx's