From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Wed, 17 Jun 2015 02:13:46 +0000 (-0700)
Subject: Remove without-interrupts from runtime/condvar.scm.
X-Git-Tag: mit-scheme-pucked-9.2.12~376^2~60
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d674d71f21e8a6b260f4c29ed31edc4a58a928eb;p=mit-scheme.git

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.
---

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)