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);