From dd6e46f04d08bc7496f27bfeea9cbbe686f29ead Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Wed, 25 May 2016 16:14:32 -0700 Subject: [PATCH] mhash/mhash.scm (remove*-context-cleanup): typos --- src/mhash/mhash.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/mhash/mhash.scm b/src/mhash/mhash.scm index a7d43ac1a..341bae274 100644 --- a/src/mhash/mhash.scm +++ b/src/mhash/mhash.scm @@ -60,14 +60,14 @@ USA. (lambda () (let ((entry (weak-assq context mhash-contexts))) (if entry - (set! mhash-contexts (delq! context mhash-contexts))))))) + (set! mhash-contexts (delq! entry mhash-contexts))))))) (define (remove-hmac-context-cleanup context) (with-thread-mutex-lock mhash-contexts-mutex (lambda () (let ((entry (weak-assq context mhash-hmac-contexts))) (if entry - (set! mhash-hmac-contexts (delq! context mhash-hmac-contexts))))))) + (set! mhash-hmac-contexts (delq! entry mhash-hmac-contexts))))))) (define (weak-assq obj alist) (let loop ((alist alist)) -- 2.25.1