Fix invalid arg type bug introduced in b52b480.

2013-09-24 18:25:31 -07:00
parent b52b480a81
commit d759083e9d
1 changed files with 1 additions and 1 deletions
--- a/hmac.scm
+++ b/hmac.scm
@@ -22,7 +22,7 @@
                            (call-with-output-digest
                              digest-primitive
                              (cut display (string-append ipad message) <>)
-                              string))
+                              'string))
             <>)
        'string))))