From: Taylor R Campbell <campbell@mumble.net>
Date: Sun, 18 Nov 2018 01:47:06 +0000 (+0000)
Subject: Test (make-polar nan 0) is nan.
X-Git-Tag: mit-scheme-pucked-10.1.2~16^2~48
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=579283c804029f13bc510360a473b4b8a76b31b5;p=mit-scheme.git

Test (make-polar nan 0) is nan.
---

diff --git a/tests/runtime/test-arith.scm b/tests/runtime/test-arith.scm
index 5b3774f8d..6fc78c05d 100644
--- a/tests/runtime/test-arith.scm
+++ b/tests/runtime/test-arith.scm
@@ -142,6 +142,10 @@ USA.
   (lambda (magnitude)
     (assert-real (make-polar magnitude 0))))
 
+(define-test 'polar0-nan
+  (lambda ()
+    (assert-nan (make-polar (flo:nan.0) 0))))
+
 (define-enumerated-test 'flo:ulp
   (vector
    (vector (flo:-inf.0) (flo:+inf.0))