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 86ed5d5992819914da84588066dc58e2558bb7a2..d06b5a6f3dfe1c603379b007d6f1e431927cb01b 100644 (file)
--- 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))
 \f
 ;;;; Boot-time initializers