diff options
Diffstat (limited to 'luxc')
| -rw-r--r-- | luxc/src/lux/analyser/proc/common.clj | 6 | ||||
| -rw-r--r-- | luxc/src/lux/compiler/jvm/proc/common.clj | 7 |
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) |