div_imag         1199 src/number.c       double div_real = 0.0, div_imag = 0.0;
div_imag         1203 src/number.c       result_real = result_imag = div_real = div_imag = 0.0;
div_imag         1278 src/number.c               div_imag = 0.0;
div_imag         1287 src/number.c                   div_imag = SCM_COMPLEX_IMAG(arg1);
div_imag         1294 src/number.c               d = div_real*div_real + div_imag*div_imag;
div_imag         1295 src/number.c               r = (result_real*div_real + result_imag*div_imag)/d;
div_imag         1296 src/number.c               i = (result_imag*div_real - result_real*div_imag)/d;