sha1_scm 51 ext/digest/sha1.c ScmObj sha1_scm; sha1_scm 56 ext/digest/sha1.c sha1_scm = SCM_ARGREF(0); sha1_scm 57 ext/digest/sha1.c if (!SCM_SHA1P(sha1_scm)) Scm_Error("<sha1> required, but got %S", sha1_scm); sha1_scm 58 ext/digest/sha1.c sha1 = SCM_SHA1(sha1_scm); sha1_scm 82 ext/digest/sha1.c ScmObj sha1_scm; sha1_scm 85 ext/digest/sha1.c sha1_scm = SCM_ARGREF(0); sha1_scm 86 ext/digest/sha1.c if (!SCM_SHA1P(sha1_scm)) Scm_Error("<sha1> required, but got %S", sha1_scm); sha1_scm 87 ext/digest/sha1.c sha1 = SCM_SHA1(sha1_scm);