luciano/xforms
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix #31 -- but should be fixed on the CLJS side

Browse source
This commit is contained in:
Christophe Grand 2019-09-09 12:55:03 +02:00
parent 00fae8ede4
commit 9808cc8555
2 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
project.clj
View file

@ -1,4 +1,4 @@
(defproject net.cgrand/xforms "0.19.0" (defproject net.cgrand/xforms "0.19.1"
:description "Extra transducers for Clojure" :description "Extra transducers for Clojure"
:url "https://github.com/cgrand/xforms" :url "https://github.com/cgrand/xforms"
:license {:name "Eclipse Public License" :license {:name "Eclipse Public License"

12
src/net/cgrand/xforms/rfs.cljc
View file

@ -39,11 +39,11 @@
:else a)))) :else a))))
([#?(:clj ^java.util.Comparator comparator :cljs comparator) absolute-maximum] ([#?(:clj ^java.util.Comparator comparator :cljs comparator) absolute-maximum]
(fn (fn
([] ::+∞) ([] ::+infinity)
([x] (if (#?(:clj identical? :cljs keyword-identical?) ::+∞ x) ([x] (if (#?(:clj identical? :cljs keyword-identical?) ::+infinity x)
absolute-maximum absolute-maximum
x)) x))
([a b] (if (or (#?(:clj identical? :cljs keyword-identical?) ::+∞ a) (pos? (#?(:clj .compare :cljs cmp) comparator a b))) b a))))) ([a b] (if (or (#?(:clj identical? :cljs keyword-identical?) ::+infinity a) (pos? (#?(:clj .compare :cljs cmp) comparator a b))) b a)))))
(defn maximum (defn maximum
([#?(:clj ^java.util.Comparator comparator :cljs comparator)] ([#?(:clj ^java.util.Comparator comparator :cljs comparator)]
@ -57,11 +57,11 @@
:else a)))) :else a))))
([#?(:clj ^java.util.Comparator comparator :cljs comparator) absolute-minimum] ([#?(:clj ^java.util.Comparator comparator :cljs comparator) absolute-minimum]
(fn (fn
([] ::-∞) ([] ::-infinity)
([x] (if (#?(:clj identical? :cljs keyword-identical?) ::-∞ x) ([x] (if (#?(:clj identical? :cljs keyword-identical?) ::-infinity x)
absolute-minimum absolute-minimum
x)) x))
([a b] (if (or (#?(:clj identical? :cljs keyword-identical?) ::-∞ a) (neg? (#?(:clj .compare :cljs cmp) comparator a b))) b a))))) ([a b] (if (or (#?(:clj identical? :cljs keyword-identical?) ::-infinity a) (neg? (#?(:clj .compare :cljs cmp) comparator a b))) b a)))))
(def min (minimum compare)) (def min (minimum compare))