Fix sign of NaN in reader.

diff --git a/src/runtime/numpar.scm b/src/runtime/numpar.scm
index c5da9fc5a17650e0dd2ea7ab40504da809d30d2c..1c65a9e7a3eb802b7828d93913a4448605de9412 100644 (file)
--- a/src/runtime/numpar.scm
+++ b/src/runtime/numpar.scm
@@ -120,7 +120,7 @@ USA.
               ((and (char-ci=? #\n char)
                     (string-prefix-ci? "an.0" string start end))
                (parse-complex string (+ start 4) end
-                              (flo:nan.0)
+                              (apply-sign sign (flo:nan.0))
                               exactness radix sign))
               ((i? char)
                (and (fix:= start end)

diff --git a/tests/runtime/test-numpar.scm b/tests/runtime/test-numpar.scm
index 5346806967c0f933a5ab097b214f28337f4b2282..aa3bc16f588e2f6c4de72a08b89cd3202234c84f 100644 (file)
--- a/tests/runtime/test-numpar.scm
+++ b/tests/runtime/test-numpar.scm
@@ -167,12 +167,12 @@ USA.
 (define-eqv-test "-2-0.i" (make-rectangular -2 -0.))
 
 (define-eqv-test "+nan.0" (flo:make-nan #f #t 0))
-(define-eqv-test "-nan.0" (flo:make-nan #t #t 0) expect-failure)
+(define-eqv-test "-nan.0" (flo:make-nan #t #t 0))
 (define-eqv-test "+inf.0" (flo:+inf.0))
 (define-eqv-test "-inf.0" (flo:-inf.0))
 
 (define-eqv-test "#i+nan.0" (flo:make-nan #f #t 0))
-(define-eqv-test "#i-nan.0" (flo:make-nan #t #t 0) expect-failure)
+(define-eqv-test "#i-nan.0" (flo:make-nan #t #t 0))
 (define-eqv-test "#i+inf.0" (flo:+inf.0))
 (define-eqv-test "#i-inf.0" (flo:-inf.0))