dy               1566 src/number.c       double dx, dy;
dy               1571 src/number.c       dy = Scm_GetDouble(y);
dy               1572 src/number.c       if (dy == 0.0) {
dy               1578 src/number.c           double mag = exp(dy * log(-dx));
dy               1579 src/number.c           double theta = dy * M_PI;
dy               1582 src/number.c           return Scm_MakeFlonum(pow(dx, dy));