i1 774 src/number.c double i = SCM_COMPLEX_IMAG(obj), i1; i1 778 src/number.c i1 = -i/d; i1 779 src/number.c obj = Scm_MakeComplexNormalized(r1, i1);