From 8ccd9344ef625240d772c1b8e81482b6f9e26163 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Fri, 1 Jun 2018 14:01:34 -0700 Subject: [PATCH] Use with-interrupts-reduced in with-limited-interrupts. Save a primitive apply. --- src/runtime/boot.scm | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) 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 -- 2.25.1