From 7635dda34498d4890bdebc763532a310a9783310 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 5 Jan 1987 17:25:05 +0000 Subject: [PATCH] Local stack overflow interrupt index incorrect. --- v7/src/runtime/gc.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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) -- 2.25.1