From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Fri, 19 Jul 1996 02:49:36 +0000 (+0000)
Subject: SET-INTERRUPT-ENABLES! is now open-coded as a special primitive unless
X-Git-Tag: 20090517-FFI~5477
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=58820cc115ec238a89fb327ea2fd776418b3eb78;p=mit-scheme.git

SET-INTERRUPT-ENABLES! is now open-coded as a special primitive unless
'SET-INTERRUPT-ENABLES! is in compiler:primitives-with-no-open-coding.
---

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 '())