diff options
| author | Stuart Halloway <stu@thinkrelevance.com> | 2011-05-13 13:50:31 -0400 |
|---|---|---|
| committer | Stuart Halloway <stu@thinkrelevance.com> | 2011-05-13 13:50:31 -0400 |
| commit | 154c88ce1c9331c6c07afc623769347c62df456a (patch) | |
| tree | 40413e10e5d9a176359d887ad4d3dbbb92bc0efc | |
| parent | b16cd4e864a47683597f6daa072a03382751a0b8 (diff) | |
inline n-ary min, max
| -rw-r--r-- | src/clj/clojure/core.clj | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj index eb55a666..9738ab84 100644 --- a/src/clj/clojure/core.clj +++ b/src/clj/clojure/core.clj @@ -1050,8 +1050,8 @@ (defn max "Returns the greatest of the nums." {:added "1.0" - :inline-arities #{2} - :inline (fn [x y] `(. clojure.lang.Numbers (max ~x ~y)))} + :inline-arities >1? + :inline (nary-inline 'max)} ([x] x) ([x y] (. clojure.lang.Numbers (max x y))) ([x y & more] @@ -1060,8 +1060,8 @@ (defn min "Returns the least of the nums." {:added "1.0" - :inline-arities #{2} - :inline (fn [x y] `(. clojure.lang.Numbers (min ~x ~y)))} + :inline-arities >1? + :inline (nary-inline 'min)} ([x] x) ([x y] (. clojure.lang.Numbers (min x y))) ([x y & more] |