From 31088a0d6dac80f4ec8d1bdafbf7d8b896f30e7d Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Fri, 10 Jul 2015 17:21:46 -0700 Subject: [PATCH] Punt interrupt-mask/in-threads. --- src/runtime/thread.scm | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) 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) -- 2.25.1