> +         (if (file-exists? file)
> +             (format #t "~a~%"
> +                     (call-with-input-file file
> +                       (compose fmt sha256 get-bytevector-all)))

Oh, Mark warned me about 'file-exists?' some time ago.

How can I do the same but avoid a race condition?