From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Wed, 25 May 2016 23:14:32 +0000 (-0700)
Subject: mhash/mhash.scm (remove*-context-cleanup): typos
X-Git-Tag: mit-scheme-pucked-9.2.12~261^2~41
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=dd6e46f04d08bc7496f27bfeea9cbbe686f29ead;p=mit-scheme.git

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

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))