Small change to HMAC-SHA1

svn: r16503
2009-11-02 19:54:52 +00:00 · 2009-11-02 19:54:52 +00:00 · 32041b2fd5
commit 32041b2fd5
parent b877098bac
1 changed files with 2 additions and 2 deletions
--- 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"))))