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

smp: Use without-interruption.  Squash into 0dd59191.
---

diff --git a/src/runtime/geneqht.scm b/src/runtime/geneqht.scm
index 2c645783d..6e6ae6b56 100644
--- a/src/runtime/geneqht.scm
+++ b/src/runtime/geneqht.scm
@@ -50,7 +50,7 @@ USA.
 	(hash (compute-key-hash table key)))
     (let loop ((entries (vector-ref buckets hash)))
       (cond ((null? entries)
-	     (without-interrupts
+	     (without-interruption
 	      (lambda ()
 		(vector-set! buckets
 			     hash
@@ -83,7 +83,7 @@ USA.
       (if (not (table-needs-rehash? table))
 	  hash
 	  (begin
-	    (without-interrupts (lambda () (rehash-table! table)))
+	    (without-interruption (lambda () (rehash-table! table)))
 	    (loop))))))
 
 (define-integrable (eq-hash-mod key modulus)
@@ -231,11 +231,5 @@ USA.
 
 (define-integrable minimum-size 4)
 
-(define-integrable (without-interrupts thunk)
-  (let ((interrupt-mask (set-interrupt-enables! interrupt-mask/gc-ok)))
-    (thunk)
-    (set-interrupt-enables! interrupt-mask)
-    unspecific))
-
 (define-integrable (weak-cons car cdr)
   (system-pair-cons (ucode-type weak-cons) car cdr))
\ No newline at end of file