- Implemented not-a-number and both infinities in pure Lux.

2 files changed, 0 insertions, 13 deletions

diff --git a/luxc/src/lux/analyser/proc/common.clj b/luxc/src/lux/analyser/proc/common.clj
index ac5900634..0d7b6dd1e 100644
--- a/luxc/src/lux/analyser/proc/common.clj
+++ b/luxc/src/lux/analyser/proc/common.clj
@@ -230,9 +230,6 @@
   ^:private analyse-frac-smallest           &type/Frac ["frac"  "smallest"]
   ^:private analyse-frac-min                &type/Frac ["frac"  "min"]
   ^:private analyse-frac-max                &type/Frac ["frac"  "max"]
-  ^:private analyse-frac-not-a-number       &type/Frac ["frac"  "not-a-number"]
-  ^:private analyse-frac-positive-infinity  &type/Frac ["frac"  "positive-infinity"]
-  ^:private analyse-frac-negative-infinity  &type/Frac ["frac"  "negative-infinity"]
   )
 
 (do-template [<name> <from-type> <to-type> <op>]
@@ -491,9 +488,6 @@
          "lux frac smallest" (analyse-frac-smallest analyse exo-type ?values)
          "lux frac min" (analyse-frac-min analyse exo-type ?values)
          "lux frac max" (analyse-frac-max analyse exo-type ?values)
-         "lux frac not-a-number" (analyse-frac-not-a-number analyse exo-type ?values)
-         "lux frac positive-infinity" (analyse-frac-positive-infinity analyse exo-type ?values)
-         "lux frac negative-infinity" (analyse-frac-negative-infinity analyse exo-type ?values)
          "lux frac int" (analyse-frac-int analyse exo-type ?values)
          
          "lux math cos" (analyse-math-cos analyse exo-type ?values)
diff --git a/luxc/src/lux/compiler/jvm/proc/common.clj b/luxc/src/lux/compiler/jvm/proc/common.clj
index 571bbadc7..aca1921fe 100644
--- a/luxc/src/lux/compiler/jvm/proc/common.clj
+++ b/luxc/src/lux/compiler/jvm/proc/common.clj
@@ -248,10 +248,6 @@
   ^:private compile-frac-smallest Double/MIN_VALUE
   ^:private compile-frac-min (* -1.0 Double/MAX_VALUE)
   ^:private compile-frac-max Double/MAX_VALUE
-
-  ^:private compile-frac-not-a-number Double/NaN
-  ^:private compile-frac-positive-infinity Double/POSITIVE_INFINITY
-  ^:private compile-frac-negative-infinity Double/NEGATIVE_INFINITY
   )
 
 (defn ^:private compile-frac-encode [compile ?values special-args]
@@ -708,9 +704,6 @@
       "smallest" (compile-frac-smallest compile ?values special-args)
       "max" (compile-frac-max compile ?values special-args)
       "min" (compile-frac-min compile ?values special-args)
-      "not-a-number" (compile-frac-not-a-number compile ?values special-args)
-      "positive-infinity" (compile-frac-positive-infinity compile ?values special-args)
-      "negative-infinity" (compile-frac-negative-infinity compile ?values special-args)
       "int"    (compile-frac-int compile ?values special-args)
       "encode"    (compile-frac-encode compile ?values special-args)
       "decode"    (compile-frac-decode compile ?values special-args)