From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Fri, 13 Mar 2015 07:05:46 +0000 (-0700)
Subject: smp: use without-interruption.  Squash into be90997.
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=78af32f3f40e8f11faaffdfa64636995be726b5e;p=mit-scheme.git

smp: use without-interruption.  Squash into be90997.
---

diff --git a/src/runtime/condvar.scm b/src/runtime/condvar.scm
index 552c45310..c7750794e 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)