From d674d71f21e8a6b260f4c29ed31edc4a58a928eb Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Tue, 16 Jun 2015 19:13:46 -0700 Subject: [PATCH] Remove without-interrupts from runtime/condvar.scm. Multi-threaded access to the chain of waiters is already adequately serialized by the condition-variable.lock. Without-interrupts was only intended to postpone aborts that would leave a doubly-linked chain without a complete pair of links. --- src/runtime/condvar.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/runtime/condvar.scm b/src/runtime/condvar.scm index d1ec02acd..822a4cf7a 100644 --- a/src/runtime/condvar.scm +++ b/src/runtime/condvar.scm @@ -189,7 +189,7 @@ USA. (assert (not (eq? tail previous))) (assert (eq? tail (waiter.next previous))) ;; Commit the changes all together or not at all. - (without-interrupts + (without-interruption (lambda () (set-waiter.previous! tail waiter) (set-waiter.next! previous waiter) @@ -209,7 +209,7 @@ USA. (assert (eq? waiter (waiter.next previous))) (assert (eq? waiter (waiter.previous next))) ;; Commit the changes all together or not at all. - (without-interrupts + (without-interruption (lambda () (set-waiter.next! previous next) (set-waiter.previous! next previous) -- 2.25.1