From 58820cc115ec238a89fb327ea2fd776418b3eb78 Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Fri, 19 Jul 1996 02:49:36 +0000
Subject: [PATCH] SET-INTERRUPT-ENABLES! is now open-coded as a special
 primitive unless 'SET-INTERRUPT-ENABLES! is in
 compiler:primitives-with-no-open-coding.

---
 v8/src/compiler/machines/spectrum/dassm1.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/v8/src/compiler/machines/spectrum/dassm1.scm b/v8/src/compiler/machines/spectrum/dassm1.scm
index 9f875f2d3..04fde27b3 100644
--- a/v8/src/compiler/machines/spectrum/dassm1.scm
+++ b/v8/src/compiler/machines/spectrum/dassm1.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: dassm1.scm,v 1.5 1995/07/27 14:21:18 adams Exp $
+$Id: dassm1.scm,v 1.6 1996/07/19 02:49:36 adams Exp $
 
 Copyright (c) 1988-1995 Massachusetts Institute of Technology
 
@@ -443,7 +443,8 @@ MIT in each case. |#
     remainder
     interpreter-call
     profile-count
-    profile-count/2))
+    profile-count/2
+    set-interrupt-enables!))
 
 (define display-instruction
   (let ((prev-instruction '())
-- 
2.25.1