From a110b103e8ac21190630d4f11b2d781f09682c79 Mon Sep 17 00:00:00 2001
From: Jason Pepas <jasonpepas@gmail.com>
Date: Wed, 1 Jul 2020 15:35:36 -0500
Subject: [PATCH] math/nan

---
 src/core/math.c | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/core/math.c b/src/core/math.c
index a99e012a..bc4b88de 100644
--- a/src/core/math.c
+++ b/src/core/math.c
@@ -499,5 +499,11 @@ void janet_lib_math(JanetTable *env) {
               JDOC("The number representing positive infinity"));
     janet_def(env, "math/-inf", janet_wrap_number(-INFINITY),
               JDOC("The number representing negative infinity"));
+#ifdef NAN
+    janet_def(env, "math/nan", janet_wrap_number(NAN),
+#else
+    janet_def(env, "math/nan", janet_wrap_number(0.0/0.0),
+#endif
+              JDOC("Not a number (IEEE-754 NaN)"));
 #endif
 }