SCM_COMPLEX_REAL 143 src/hash.c hashval = (unsigned long)((SCM_COMPLEX_REAL(obj)+SCM_COMPLEX_IMAG(obj))*2654435761UL); SCM_COMPLEX_REAL 291 src/number.c double r = SCM_COMPLEX_REAL(z); SCM_COMPLEX_REAL 307 src/number.c double r = SCM_COMPLEX_REAL(z); SCM_COMPLEX_REAL 704 src/number.c double r = SCM_COMPLEX_REAL(obj); SCM_COMPLEX_REAL 753 src/number.c obj = Scm_MakeComplex(-SCM_COMPLEX_REAL(obj), SCM_COMPLEX_REAL 773 src/number.c double r = SCM_COMPLEX_REAL(obj), r1; SCM_COMPLEX_REAL 951 src/number.c result_real = SCM_COMPLEX_REAL(arg0); SCM_COMPLEX_REAL 962 src/number.c result_real += SCM_COMPLEX_REAL(arg1); SCM_COMPLEX_REAL 1051 src/number.c result_real = SCM_COMPLEX_REAL(arg0); SCM_COMPLEX_REAL 1062 src/number.c result_real -= SCM_COMPLEX_REAL(arg1); SCM_COMPLEX_REAL 1154 src/number.c result_real = SCM_COMPLEX_REAL(arg0); SCM_COMPLEX_REAL 1169 src/number.c double r = SCM_COMPLEX_REAL(arg1); SCM_COMPLEX_REAL 1274 src/number.c result_real = SCM_COMPLEX_REAL(arg0); SCM_COMPLEX_REAL 1286 src/number.c div_real = SCM_COMPLEX_REAL(arg1); SCM_COMPLEX_REAL 1594 src/number.c return ((SCM_COMPLEX_REAL(arg0) == SCM_COMPLEX_REAL(arg1)) SCM_COMPLEX_REAL 2136 src/number.c double_print(buf, FLT_BUF, SCM_COMPLEX_REAL(obj), FALSE); SCM_COMPLEX_REAL 373 src/stdlib.c SCM_RESULT = (SCM_COMPLEX_REAL(obj) == 0.0 SCM_COMPLEX_REAL 1125 src/stdlib.c } else { SCM_RETURN(Scm_Values2(Scm_MakeFlonum(SCM_COMPLEX_REAL(z)), Scm_MakeFlonum(SCM_COMPLEX_IMAG(z))));} SCM_COMPLEX_REAL 1143 src/stdlib.c SCM_RETURN(Scm_MakeFlonum(SCM_COMPLEX_REAL(z)));