From 7073fef5c31725bd9504a2333707da278cc23051 Mon Sep 17 00:00:00 2001
From: marting <marting>
Date: Thu, 16 Sep 1999 16:12:57 +0000
Subject: [PATCH] added dfishers interrupt handler, but call (/ 1 0) before...

---
 scheme/rts/interrupt.scm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/scheme/rts/interrupt.scm b/scheme/rts/interrupt.scm
index bf53bd7..315914e 100644
--- 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))