From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 5 Jan 1987 17:25:05 +0000 (+0000)
Subject: Local stack overflow interrupt index incorrect.
X-Git-Tag: 20090517-FFI~13767
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7635dda34498d4890bdebc763532a310a9783310;p=mit-scheme.git

Local stack overflow interrupt index incorrect.
---

diff --git a/v7/src/runtime/gc.scm b/v7/src/runtime/gc.scm
index b9f168f13..a51071ea7 100644
--- a/v7/src/runtime/gc.scm
+++ b/v7/src/runtime/gc.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	Copyright (c) 1986 Massachusetts Institute of Technology
+;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -37,6 +37,8 @@
 
 ;;;; Garbage Collector
 
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/gc.scm,v 1.92 1987/01/05 17:25:05 cph Exp $
+
 (declare (usual-integrations)
 	 (compilable-primitive-functions
 	  garbage-collect primitive-purify primitive-impurify primitive-fasdump
@@ -90,7 +92,7 @@
 	       (gc-flip Default-Safety-Margin)))
 
 (vector-set! (vector-ref (get-fixed-objects-vector) 1)
-	     1				;Local Stack Overflow Interrupt
+	     0				;Local Stack Overflow Interrupt
 	     (named-lambda (stack-overflow-interrupt interrupt-code
 						     interrupt-enables)
 	       (stack-overflow)