From 1fb68707fcc21ad991222ac7b6869c04c56045a2 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Tue, 3 Aug 2010 16:22:51 -0400 Subject: [PATCH] Fixed a test. --- .../optimizer/hand-optimized/inexact-complex-i.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/tests/typed-scheme/optimizer/hand-optimized/inexact-complex-i.rkt b/collects/tests/typed-scheme/optimizer/hand-optimized/inexact-complex-i.rkt index a01f78750e..b08c041fb7 100644 --- a/collects/tests/typed-scheme/optimizer/hand-optimized/inexact-complex-i.rkt +++ b/collects/tests/typed-scheme/optimizer/hand-optimized/inexact-complex-i.rkt @@ -4,8 +4,8 @@ (unboxed-gensym-2 (unsafe-flreal-part unboxed-gensym-1)) (unboxed-gensym-3 (unsafe-flimag-part unboxed-gensym-1)) (unboxed-gensym-4 +1.0i) - (unboxed-gensym-5 (unsafe-flreal-part unboxed-gensym-4)) - (unboxed-gensym-6 (unsafe-flimag-part unboxed-gensym-4)) + (unboxed-gensym-5 (exact->inexact (real-part unboxed-gensym-4))) + (unboxed-gensym-6 (exact->inexact (imag-part unboxed-gensym-4))) (unboxed-gensym-7 2.0+4.0i) (unboxed-gensym-8 (unsafe-flreal-part unboxed-gensym-7)) (unboxed-gensym-9 (unsafe-flimag-part unboxed-gensym-7))