From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Sat, 11 Jul 2015 00:21:46 +0000 (-0700)
Subject: Punt interrupt-mask/in-threads.
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=31088a0d6dac80f4ec8d1bdafbf7d8b896f30e7d;p=mit-scheme.git

Punt interrupt-mask/in-threads.
---

diff --git a/src/runtime/thread.scm b/src/runtime/thread.scm
index 4f84ba77d..e2f3f442f 100644
--- a/src/runtime/thread.scm
+++ b/src/runtime/thread.scm
@@ -37,15 +37,13 @@ USA.
 (define-integrable get-interrupt-enables
   (ucode-primitive get-interrupt-enables 0))
 
-(define-integrable interrupt-mask/in-threads interrupt-mask/none)
-
 (define-integrable (interrupt-mask-ok?)
   (fix:= 0 (get-interrupt-enables)))
 
 (define-integrable (lock)
   ;; (%assert (eq? interrupt-mask/all (get-interrupt-enables)) "lock: unexpected interrupt mask")
   (%assert (not locked?) "lock: already locked!")
-  (set-interrupt-enables! interrupt-mask/in-threads)
+  (set-interrupt-enables! interrupt-mask/none)
   (%lock))
 
 (define (%lock)