From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Wed, 25 Feb 2015 15:07:02 +0000 (-0700)
Subject: smp: Add without-interruption.
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9f7f7533af5650657b094069e8cbfb087bc866f0;p=mit-scheme.git

smp: Add without-interruption.
---

diff --git a/src/runtime/boot.scm b/src/runtime/boot.scm
index 0dcfb41ea..b653c869f 100644
--- a/src/runtime/boot.scm
+++ b/src/runtime/boot.scm
@@ -122,6 +122,9 @@ USA.
       interrupt-mask
       (thunk))))
 
+(define (without-interruption thunk)
+  (with-thread-events-blocked thunk))
+
 (define (with-limited-interrupts limit-mask procedure)
   ((ucode-primitive with-interrupt-mask)
    (fix:and limit-mask (get-interrupt-enables))
diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index 5813c2481..c8a8d086d 100644
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -164,6 +164,7 @@ USA.
 	  unparser/standard-method
 	  with-absolutely-no-interrupts
 	  with-limited-interrupts
+	  without-interruption
 	  without-interrupts)
   (export (runtime)
 	  add-boot-init!