Ignored a rounding error between PPC and x86.

original commit: e1fd445fa4acab85eb2894bc94dc1a9b009fc9ba
This commit is contained in:
Vincent St-Amour 2010-08-29 10:12:49 -04:00
parent 01fd7f5b8c
commit a506c6cefb

View File

@ -7,4 +7,6 @@
(make-polar 1.0 1.0)
;; nested
(+ 1.0+2.0i (make-polar 2.0 4.0))
(let ((p (+ 1.0+2.0i (make-polar 2.0 4.0))))
(string-append (real->decimal-string (real-part p) 10)
(real->decimal-string (imag-part p) 10)))