suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

xform doesnt like function calls in (?:)

Browse Source 
svn: r4610
This commit is contained in:
Eli Barzilay 2006-10-15 17:09:09 +00:00
parent c0a8f9349e
commit b16c7a28c1
1 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/mzscheme/src/complex.c
View File

@ -294,12 +294,10 @@ Scheme_Object *scheme_complex_divide(const Scheme_Object *_n, const Scheme_Objec
den = scheme_bin_plus(d, scheme_bin_mult(c, r));
i = scheme_bin_div((swap
? scheme_bin_minus(a, scheme_bin_mult(b, r))
: scheme_bin_minus(scheme_bin_mult(b, r), a)),
den);
r = scheme_bin_div(scheme_bin_plus(b, scheme_bin_mult(a, r)),
den);
if (swap) i = scheme_bin_div(scheme_bin_minus(a, scheme_bin_mult(b, r)), den);
else i = scheme_bin_div(scheme_bin_minus(scheme_bin_mult(b, r), a), den);
r = scheme_bin_div(scheme_bin_plus(b, scheme_bin_mult(a, r)), den);
return scheme_make_complex(r, i);
}