From 59d666c5ee2986217980da727dda3bc0c55dbec5 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Tue, 16 Jun 2015 19:15:05 -0700 Subject: [PATCH] Remove without-interrupts from runtime/crypto.scm. It was only used to postpone aborts that would leak mhash contexts. --- src/runtime/crypto.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/runtime/crypto.scm b/src/runtime/crypto.scm index e13005eaa..7f76961c2 100644 --- 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 -- 2.25.1