mhash/mhash.scm (remove*-context-cleanup): typos

diff --git a/src/mhash/mhash.scm b/src/mhash/mhash.scm
index a7d43ac1ac87799fe7a7529daaa53dbc0c88136b..341bae2743faa488b86534a07cc0ae7ae38d0b9a 100644 (file)
--- 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))