fromc 1439 src/extlib.c long fromc = -1, toc = -1; fromc 1440 src/extlib.c if (SCM_EXACTP(from)) fromc = Scm_GetInteger(from); fromc 1441 src/extlib.c else if (SCM_CHARP(from)) fromc = SCM_CHAR_VALUE(from); fromc 1442 src/extlib.c if (fromc < 0) Scm_Error("character or positive integer required, but got %S", from); fromc 1443 src/extlib.c if (fromc > SCM_CHAR_MAX) Scm_Error("argument out of range: %S", from); fromc 1448 src/extlib.c SCM_RETURN(Scm_CharSetAddRange(cs, (ScmChar)fromc, (ScmChar)toc));