From a506c6cefb1e330e7337853b04f186a38d2cc96f Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Sun, 29 Aug 2010 10:12:49 -0400 Subject: [PATCH] Ignored a rounding error between PPC and x86. original commit: e1fd445fa4acab85eb2894bc94dc1a9b009fc9ba --- collects/tests/typed-scheme/optimizer/tests/make-polar.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/tests/typed-scheme/optimizer/tests/make-polar.rkt b/collects/tests/typed-scheme/optimizer/tests/make-polar.rkt index 6916033f..5a0600e0 100644 --- a/collects/tests/typed-scheme/optimizer/tests/make-polar.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/make-polar.rkt @@ -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)))