SCM_SHA1P 57 ext/digest/sha1.c if (!SCM_SHA1P(sha1_scm)) Scm_Error("<sha1> required, but got %S", sha1_scm); SCM_SHA1P 86 ext/digest/sha1.c if (!SCM_SHA1P(sha1_scm)) Scm_Error("<sha1> required, but got %S", sha1_scm);