Punt interrupt-mask/in-threads.

diff --git a/src/runtime/thread.scm b/src/runtime/thread.scm
index 4f84ba77d7211f4e47f475f851286d2b6d2260c5..e2f3f442f49d1a41cc61af593947235190f22c78 100644 (file)
--- 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)