added dfishers interrupt handler, but call (/ 1 0) before...

1999-09-16 16:12:57 +00:00 · 1999-09-16 16:12:57 +00:00 · 7073fef5c3
parent 20081c537b
commit 7073fef5c3
1 changed files with 5 additions and 0 deletions
--- a/scheme/rts/interrupt.scm
+++ b/scheme/rts/interrupt.scm
@ -116,3 +116,8 @@
 				   10)
 			 (car maybe-required-space)))
  (session-data-set! space-shortage-handler handler))
+; For scsh.
+
+(define (interrupt-handlers-vector) 
+  (/ 1 0)
+  (session-data-ref interrupt-handlers))