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

diff --git a/src/runtime/geneqht.scm b/src/runtime/geneqht.scm
index 2c645783dcf8ce33626c13c5a1928b8e6ca9a5fc..6e6ae6b565f0888ba4e5c86744da33c4b8841d44 100644 (file)
--- 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