imagpart         2653 src/number.c               ScmObj imagpart = read_real(&str, &len, &ctx);
imagpart         2654 src/number.c               if (SCM_FALSEP(imagpart) || len != 1 || *str != 'i') {
imagpart         2658 src/number.c               if (Scm_Sign(imagpart) == 0) return realpart;
imagpart         2660 src/number.c                                                Scm_GetDouble(imagpart));