From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Fri, 1 Jun 2018 21:01:34 +0000 (-0700)
Subject: Use with-interrupts-reduced in with-limited-interrupts.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~6^2~18
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8ccd9344ef625240d772c1b8e81482b6f9e26163;p=mit-scheme.git

Use with-interrupts-reduced in with-limited-interrupts.

Save a primitive apply.
---

diff --git a/src/runtime/boot.scm b/src/runtime/boot.scm
index 86ed5d599..d06b5a6f3 100644
--- a/src/runtime/boot.scm
+++ b/src/runtime/boot.scm
@@ -220,9 +220,7 @@ USA.
       (thunk))))
 
 (define (with-limited-interrupts limit-mask procedure)
-  ((ucode-primitive with-interrupt-mask)
-   (fix:and limit-mask (get-interrupt-enables))
-   procedure))
+  ((ucode-primitive with-interrupts-reduced) limit-mask procedure))
 
 ;;;; Boot-time initializers