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