Fixed a test.

This commit is contained in:
Vincent St-Amour 2010-08-03 16:22:51 -04:00
parent fb31a6556e
commit 1fb68707fc

View File

@ -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))