从外部文件使用过程时从guile发出警告

Question

我有从字符串生成sha1哈希的过程：

(define (string->sha1 string)
    (let ((port (open-input-string string)))
      (hex (sha1 port))))

函数hex和sha1取自A "pure" scheme implementation (R5RS) of SHA256?我已将代码放入sha.scm并使用以下方法加载：

(load "sha.scm")

我发出了这样的警告：

;;; /home/kuba/projects/jcubic/notes/./rpc.scm:66:6: warning: possibly unbound variable `hex'
;;; /home/kuba/projects/jcubic/notes/./rpc.scm:66:11: warning: possibly unbound variable `sha1'

如何解决这些警告？