Scm_MakeComplex 2142 src/gauche.h SCM_EXTERN ScmObj Scm_MakeComplex(double real, double imag); Scm_MakeComplex 271 src/number.c else return Scm_MakeComplex(r, i); Scm_MakeComplex 279 src/number.c else return Scm_MakeComplex(real, imag); Scm_MakeComplex 753 src/number.c obj = Scm_MakeComplex(-SCM_COMPLEX_REAL(obj), Scm_MakeComplex 847 src/number.c return Scm_MakeComplex((double)SCM_INT_VALUE(obj), 0.0); Scm_MakeComplex 849 src/number.c return Scm_MakeComplex(Scm_BignumToDouble(SCM_BIGNUM(obj)), 0.0); Scm_MakeComplex 851 src/number.c return Scm_MakeComplex(SCM_FLONUM_VALUE(obj), 0.0); Scm_MakeComplex 2620 src/number.c return Scm_MakeComplex(0.0, (*str == '+')? 1.0 : -1.0); Scm_MakeComplex 2650 src/number.c return Scm_MakeComplex(Scm_GetDouble(realpart), Scm_MakeComplex 2667 src/number.c else return Scm_MakeComplex(0.0, Scm_GetDouble(realpart)); Scm_MakeComplex 803 src/stdlib.c SCM_RESULT = Scm_MakeComplex(log(-Scm_GetDouble(x)), M_PI); Scm_MakeComplex 889 src/stdlib.c SCM_RESULT = Scm_MakeComplex(M_PI/2.0, -log(x + sqrt(x*x-1.0))); Scm_MakeComplex 891 src/stdlib.c SCM_RESULT = Scm_MakeComplex(-M_PI/2.0, -log(-x - sqrt(x*x-1.0))); Scm_MakeComplex 915 src/stdlib.c SCM_RESULT = Scm_MakeComplex(0, log(x + sqrt(x*x-1.0))); Scm_MakeComplex 917 src/stdlib.c SCM_RESULT = Scm_MakeComplex(M_PI, log(-x - sqrt(x*x-1.0))); Scm_MakeComplex 1034 src/stdlib.c if (x < 0) SCM_RETURN(Scm_MakeComplex(0.0, sqrt(-x))); Scm_MakeComplex 1080 src/stdlib.c else SCM_RETURN(Scm_MakeComplex(a, b));