Ticket #664: fix_sha1.patch

simple-sha1.scm

@@ -40 +40 @@
           (string->list digest)))))
 
 (define (sha1sum fname)
+  (and (file-exists? fname)
+       (not (directory? fname))
   (let* ((fd (file-open fname open/rdonly))
          (fsize (file-size fd))
          (ctxt (allocate context-size))
@@ -56 +58 @@
     (string-concatenate
      (map (lambda (c)
             (string-pad (number->string (char->integer c) 16) 2 #\0))
-          (string->list digest)))))
+          (string->list digest))))))
 
 )