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 9f875f2d37347fb73d2ba126e1f9b528778cb4d4..04fde27b35a7f0521196cc238db9c3afb3c27601 100644 (file)
--- 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 '())