Add NaN, Infinity reader support

CHANGELOG.md

@@ -1,6 +1,7 @@
 # Change Log
 
 ## Upcoming
+- [#126](https://github.com/jaunt-lang/jaunt/pull/126) Add reader support for `Infinity`, `NaN` (@arrdem).
 - [#123](https://github.com/jaunt-lang/jaunt/pull/123) Add support for `:jnt` in reader conditionals (@arrdem).
   - Update to Java 1.8
   - Implement `java.lang.Iterable` over `clojure.lang.Seqable` using a Java 8 interface default method

src/jvm/clojure/lang/EdnReader.java

@@ -257,6 +257,12 @@ static private Object interpretToken(String s) {
       return RT.T;
     } else if (s.equals("false")) {
       return RT.F;
+    } else if (s.equals("NaN")) {
+      return Double.NaN;
+    } else if (s.equals("-Infinity")) {
+      return Double.NEGATIVE_INFINITY;
+    } else if (s.equals("Infinity") || s.equals("+Infinity")) {
+      return Double.POSITIVE_INFINITY;
     }
 
     Object ret = null;

src/jvm/clojure/lang/LispReader.java

@@ -349,7 +349,14 @@ static private Object interpretToken(String s) {
       return RT.T;
     } else if (s.equals("false")) {
       return RT.F;
+    } else if (s.equals("NaN")) {
+      return Double.NaN;
+    } else if (s.equals("-Infinity")) {
+      return Double.NEGATIVE_INFINITY;
+    } else if (s.equals("Infinity") || s.equals("+Infinity")) {
+      return Double.POSITIVE_INFINITY;
     }
+
     Object ret = null;
 
     ret = matchSymbol(s);

test/clojure/test_clojure/reader.cljc

@@ -210,6 +210,11 @@
   (is (instance? Double -1.0))
   (is (instance? Double -1.))
 
+  (is (instance? Double Infinity))
+  (is (instance? Double +Infinity))
+  (is (instance? Double -Infinity))
+  (is (instance? Double NaN))
+
   ; Read BigDecimal
   (is (instance? BigDecimal 9223372036854775808M))
   (is (instance? BigDecimal -9223372036854775809M))