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

formatting

Browse Source 
svn: r4623
This commit is contained in:
Matthew Flatt 2006-10-18 03:28:18 +00:00
parent 57b2dd2903
commit 8798784bd5
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -294,8 +294,10 @@ Scheme_Object *scheme_complex_divide(const Scheme_Object *_n, const Scheme_Objec
den = scheme_bin_plus(d, scheme_bin_mult(c, r));
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);
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);