smp: Use without-interruption. Squash into 62ed22f.

diff --git a/src/runtime/crypto.scm b/src/runtime/crypto.scm
index e13005eaac51ec5aeb77f0024372e9df45c41e9a..7f76961c214e22230485d3cf69d7be1c88c328ad 100644 (file)
--- a/src/runtime/crypto.scm
+++ b/src/runtime/crypto.scm
@@ -67,7 +67,7 @@ USA.
 
 (define (mhash-init name)
   (let ((id (mhash-name->id name 'MHASH-INIT)))
-    (without-interrupts
+    (without-interruption
      (lambda ()
        (let ((index ((ucode-primitive mhash_init 1) id)))
         (if (not index)
@@ -84,7 +84,7 @@ USA.
 (define (mhash-hmac-init name key)
   (let* ((id (mhash-name->id name 'MHASH-INIT))
         (pblock ((ucode-primitive mhash_get_hash_pblock 1) id)))
-    (without-interrupts
+    (without-interruption
      (lambda ()
        (let ((index ((ucode-primitive mhash_hmac_init 3) id key pblock)))
         (if (not index)
@@ -385,7 +385,7 @@ USA.
   (names-vector->list mcrypt-mode-names-vector))
 
 (define (mcrypt-open-module algorithm mode)
-  (without-interrupts
+  (without-interruption
    (lambda ()
      (add-to-gc-finalizer! mcrypt-contexts
                           (make-mcrypt-context