From 32041b2fd5484c22c35fe6a9da92fead8baa00b3 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Mon, 2 Nov 2009 19:54:52 +0000 Subject: [PATCH] Small change to HMAC-SHA1 svn: r16503 --- collects/web-server/stuffers/hmac-sha1.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/web-server/stuffers/hmac-sha1.ss b/collects/web-server/stuffers/hmac-sha1.ss index f9cde6a4b2..d44b9baa69 100644 --- a/collects/web-server/stuffers/hmac-sha1.ss +++ b/collects/web-server/stuffers/hmac-sha1.ss @@ -28,8 +28,8 @@ [key_len : _int = (bytes-length key)] [data : _bytes] [data_len : _int = (bytes-length data)] - [md : _int = 0] - [md_len : _int = 0] + [md : _pointer = #f] + [md_len : _uint = 0] f-> _pointer)) (lambda (key data) (error 'HMAC-SHA1/raw "libcrypto could not load"))))