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

smp: Use without-interruption.  Squash into ba4c087.
---

diff --git a/src/runtime/generic.scm b/src/runtime/generic.scm
index de020f93a..4fcaeebaa 100644
--- a/src/runtime/generic.scm
+++ b/src/runtime/generic.scm
@@ -105,7 +105,7 @@ USA.
 	 (guarantee-generic-procedure generic
 				      'SET-GENERIC-PROCEDURE-GENERATOR!)))
     (guarantee-generator generator 'SET-GENERIC-PROCEDURE-GENERATOR!)
-    (without-interrupts
+    (without-interruption
      (lambda ()
        (set-generic-record/generator! record generator)
        (%reset-generic-procedure-cache! record)))))
@@ -135,7 +135,7 @@ USA.
 (define (%purge-generic-procedure-cache! generic record filter)
   ;; This might have interrupts locked for a long time, and thus is an
   ;; argument for using something like a semaphore to control access.
-  (without-interrupts
+  (without-interruption
    (lambda ()
      (set-generic-record/cache!
       record
@@ -282,7 +282,7 @@ USA.
 		 (generic (generic-record/procedure record)))
 	     (or (and generator (generator generic tags))
 		 (error:no-applicable-methods generic args)))))
-      (without-interrupts
+      (without-interruption
        (lambda ()
 	 (set-generic-record/cache!
 	  record