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