From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 11 Sep 1992 22:34:34 +0000 (+0000)
Subject: Add new hook for close-coded stack/interrupt check.
X-Git-Tag: 20090517-FFI~8980
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a92bc8e6d83186668652fb8ecb7adc50e4140b5f;p=mit-scheme.git

Add new hook for close-coded stack/interrupt check.
---

diff --git a/v7/src/compiler/machines/spectrum/lapgen.scm b/v7/src/compiler/machines/spectrum/lapgen.scm
index 31a7160e0..81d9d1067 100644
--- a/v7/src/compiler/machines/spectrum/lapgen.scm
+++ b/v7/src/compiler/machines/spectrum/lapgen.scm
@@ -1,7 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/spectrum/lapgen.scm,v 4.39 1992/07/29 19:56:09 cph Exp $
-$MC68020-Header: /scheme/compiler/bobcat/RCS/lapgen.scm,v 4.41 1991/05/06 23:05:51 jinx Exp $
+$Id: lapgen.scm,v 4.40 1992/09/11 22:34:34 cph Exp $
 
 Copyright (c) 1988-92 Massachusetts Institute of Technology
 
@@ -588,7 +587,8 @@ MIT in each case. |#
     shortcircuit-apply-5
     shortcircuit-apply-6
     shortcircuit-apply-7
-    shortcircuit-apply-8))
+    shortcircuit-apply-8
+    stack-and-interrupt-check))
 
 (define (invoke-hook hook)
   (LAP (BLE () (OFFSET ,hook 4 ,regnum:scheme-to-interface-ble))