From 9f7f7533af5650657b094069e8cbfb087bc866f0 Mon Sep 17 00:00:00 2001
From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Wed, 25 Feb 2015 08:07:02 -0700
Subject: [PATCH] smp: Add without-interruption.

---
 src/runtime/boot.scm    | 3 +++
 src/runtime/runtime.pkg | 1 +
 2 files changed, 4 insertions(+)

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!
-- 
2.25.1