intpart 2423 src/number.c ScmObj intpart, fraction; intpart 2435 src/number.c intpart = read_uint(strp, lenp, ctx, SCM_FALSE); intpart 2437 src/number.c if (minusp) intpart = Scm_Negate(intpart); intpart 2439 src/number.c return Scm_ExactToInexact(intpart); intpart 2441 src/number.c return intpart; intpart 2465 src/number.c if (minusp) intpart = Scm_Negate(intpart); intpart 2466 src/number.c ratval = Scm_Divide2(intpart, denom); intpart 2480 src/number.c intpart = SCM_FALSE; /* indicate there was no intpart */ intpart 2493 src/number.c fraction = read_uint(strp, lenp, ctx, intpart); intpart 2496 src/number.c fraction = intpart; intpart 2499 src/number.c if (SCM_FALSEP(intpart)) {