Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-07 13:16:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

handling complex negation with a zero real part

Browse source
This commit is contained in:
Alex Shinn 2012-07-11 23:03:43 +09:00
parent 386b798b35
commit afacac6127
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
sexp.c
View file

@ -2851,7 +2851,11 @@ sexp sexp_read_raw (sexp ctx, sexp in) {
#endif #endif
#if SEXP_USE_COMPLEX #if SEXP_USE_COMPLEX
if (sexp_complexp(res)) { if (sexp_complexp(res)) {
sexp_negate(sexp_complex_real(res)); if (sexp_complex_real(res) == SEXP_ZERO) {
sexp_negate(sexp_complex_imag(res));
} else {
sexp_negate(sexp_complex_real(res));
}
} else } else
#endif #endif
res = sexp_fx_mul(res, SEXP_NEG_ONE); res = sexp_fx_mul(res, SEXP_NEG_ONE);