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