real 20 gc/include/private/gc_hdrs.h --> Get a real machine. real 2098 src/gauche.h double real; real 2104 src/gauche.h #define SCM_COMPLEX_REAL(obj) SCM_COMPLEX(obj)->real real 2142 src/gauche.h SCM_EXTERN ScmObj Scm_MakeComplex(double real, double imag); real 2144 src/gauche.h SCM_EXTERN ScmObj Scm_MakeComplexNormalized(double real, double imag); real 263 src/number.c c->real = r; real 276 src/number.c double real = mag * cos(angle); real 278 src/number.c if (imag == 0.0) return Scm_MakeFlonum(real); real 279 src/number.c else return Scm_MakeComplex(real, imag);