smp: Add without-interruption.

diff --git a/src/runtime/boot.scm b/src/runtime/boot.scm
index 0dcfb41ea8a39a408f469d321007745069127c42..b653c869f963122c8d90f3f1df48f22593f74ad1 100644 (file)
--- 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 5813c2481b013569763d2d117522ddb739c83a30..c8a8d086d1b8794a5f5c9353332e15c199ac8cad 100644 (file)
--- 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!