modulo 1955 src/extlib.c unsigned long modulo = 0; modulo 1956 src/extlib.c if (SCM_UNDEFINEDP(bound)) modulo = SCM_SMALL_INT_MAX; modulo 1957 src/extlib.c else if (SCM_INTP(bound)) modulo = SCM_INT_VALUE(bound); modulo 1958 src/extlib.c else if (SCM_BIGNUMP(bound)) modulo = Scm_BignumToUI(SCM_BIGNUM(bound), SCM_CLAMP_BOTH, NULL); modulo 1959 src/extlib.c if (modulo == 0) Scm_Error("argument out of domain: %S", bound); modulo 1960 src/extlib.c SCM_RETURN(Scm_MakeInteger(Scm_HashString(str, modulo))); modulo 212 src/hash.c unsigned long Scm_HashString(ScmString *str, unsigned long modulo) modulo 219 src/hash.c return (hashval % modulo);