Ticket #163: sha2-string-arg.diff

sha2.scm

@@ -44 +44 @@
 (define-constant digest-length-256 32) ; SHA256_DIGEST_LENGTH
 
 (define (sha256-binary-digest obj)
+  (##sys#check-string obj)
   (make-binary-message-digest obj
     context-size-256 digest-length-256
     sha256-init sha256-update sha256-final
     'sha256-binary-digest))
 
 (define (sha256-digest obj)
+  (##sys#check-string obj)
   (make-message-digest obj
     context-size-256 digest-length-256
     sha256-init sha256-update sha256-final
@@ -72 +74 @@
 (define-constant digest-length-384 48) ; SHA384_DIGEST_LENGTH
 
 (define (sha384-binary-digest obj)
+  (##sys#check-string obj)
   (make-binary-message-digest obj
     context-size-384 digest-length-384
     sha384-init sha384-update sha384-final
     'sha384-binary-digest))
 
 (define (sha384-digest obj)
+  (##sys#check-string obj)
   (make-message-digest obj
     context-size-384 digest-length-384
     sha384-init sha384-update sha384-final
@@ -100 +104 @@
 (define-constant digest-length-512 64) ; SHA512_DIGEST_LENGTH
 
 (define (sha512-binary-digest obj)
+  (##sys#check-string obj)
   (make-binary-message-digest obj
     context-size-512 digest-length-512
     sha512-init sha512-update sha512-final
     'sha512-binary-digest))
 
 (define (sha512-digest obj)
+  (##sys#check-string obj)
   (make-message-digest obj
     context-size-512 digest-length-512
     sha512-init sha512-update sha512-final