realpart 2561 src/number.c ScmObj realpart; realpart 2625 src/number.c realpart = read_real(&str, &len, &ctx); realpart 2626 src/number.c if (SCM_FALSEP(realpart) || len == 0) return realpart; realpart 2640 src/number.c dmag = Scm_GetDouble(realpart); realpart 2650 src/number.c return Scm_MakeComplex(Scm_GetDouble(realpart), realpart 2658 src/number.c if (Scm_Sign(imagpart) == 0) return realpart; realpart 2659 src/number.c return Scm_MakeComplexNormalized(Scm_GetDouble(realpart), realpart 2666 src/number.c if (Scm_Sign(realpart) == 0) return Scm_MakeFlonum(0.0); realpart 2667 src/number.c else return Scm_MakeComplex(0.0, Scm_GetDouble(realpart));