Make limiting work in ClojureScript
Change `keep-number-reasonable` so that it doesn't use Java's Double class when running in ClojureScript. I believe this should work, but I haven't tested it with ClojureScript yet.
This commit is contained in:
parent
7f5168769d
commit
156bbb91e3
@ -17,10 +17,13 @@
|
|||||||
:else n)
|
:else n)
|
||||||
:else
|
:else
|
||||||
(cond
|
(cond
|
||||||
(Double/isNaN n) 0.0
|
(#?(:clj Double/isNaN
|
||||||
(or (= n Double/POSITIVE_INFINITY)
|
:cljs js/isNaN) n) 0.0
|
||||||
|
(or (= n #?(:clj Double/POSITIVE_INFINITY
|
||||||
|
:cljs js/Infinity))
|
||||||
(> n globals/max-number-magnitude)) globals/max-number-magnitude
|
(> n globals/max-number-magnitude)) globals/max-number-magnitude
|
||||||
(or (= n Double/NEGATIVE_INFINITY)
|
(or (= n #?(:clj Double/NEGATIVE_INFINITY
|
||||||
|
:cljs js/-Infinity))
|
||||||
(< n (- globals/max-number-magnitude))) (- globals/max-number-magnitude)
|
(< n (- globals/max-number-magnitude))) (- globals/max-number-magnitude)
|
||||||
(< (- globals/min-number-magnitude) n globals/min-number-magnitude) 0.0
|
(< (- globals/min-number-magnitude) n globals/min-number-magnitude) 0.0
|
||||||
:else n)))
|
:else n)))
|
||||||
|
Loading…
x
Reference in New Issue
Block a user