From 579283c804029f13bc510360a473b4b8a76b31b5 Mon Sep 17 00:00:00 2001
From: Taylor R Campbell <campbell@mumble.net>
Date: Sun, 18 Nov 2018 01:47:06 +0000
Subject: [PATCH] Test (make-polar nan 0) is nan.

---
 tests/runtime/test-arith.scm | 4 ++++
 1 file changed, 4 insertions(+)

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