Welcome to the CHICKEN Scheme pasting service

I think I found a bug in message-digest-string and message-digest-blob.
Its result-form is defined as message-digest-result-type, but this really
is just a symbol specifying the wanted result-form.

Please consider applying this patch:


diff --git a/message-digest-byte-vector.scm b/message-digest-byte-vector.scm
index af73d9a..55fe0b9 100644
--- a/message-digest-byte-vector.scm
+++ b/message-digest-byte-vector.scm
@@ -39,9 +39,9 @@
 (: message-digest-update-string (message-digest string #!optional fixnum fixnum -> void))

-(: message-digest-blob (message-digest-kind blob #!optional message-digest-result-type fixnum fixnum -> message-digest-result-type))
-(: message-digest-string (message-digest-kind string #!optional message-digest-result-type fixnum fixnum -> message-digest-result-type))
+(: message-digest-blob (message-digest-kind blob #!optional symbol fixnum fixnum -> message-digest-result-type))
+(: message-digest-string (message-digest-kind string #!optional symbol fixnum fixnum -> message-digest-result-type))

-(: message-digest-blob! (message-digest-kind blob message-digest-buffer #!optional message-digest-result-type fixnum fixnum -> message-digest-result-type))
-(: message-digest-string! (message-digest-kind string message-digest-buffer #!optional message-digest-result-type fixnum fixnum -> message-digest-result-type))
+(: message-digest-blob! (message-digest-kind blob message-digest-buffer #!optional symbol fixnum fixnum -> message-digest-result-type))
+(: message-digest-string! (message-digest-kind string message-digest-buffer #!optional symbol fixnum fixnum -> message-digest-result-type))

 ;;