added unary support for =, not=, none=

1 files changed, 4 insertions, 1 deletions

diff --git a/src/clj/clojure/boot.clj b/src/clj/clojure/boot.clj
index 893db427..2ef57acb 100644
--- a/src/clj/clojure/boot.clj
+++ b/src/clj/clojure/boot.clj
@@ -413,6 +413,7 @@
   {:tag Boolean
    :inline (fn [x y] `(. clojure.lang.Util equal ~x ~y))
    :inline-arities #{2}} 
+  ([x] true)
   ([x y] (. clojure.lang.Util (equal x y)))
   ([x y & more]
    (if (= x y)
@@ -424,6 +425,7 @@
 (defn not=
   "Same as (not (= obj1 obj2))"
   {:tag Boolean}
+  ([x] false)
   ([x y] (not (= x y)))
   ([x y & more]
    (not (apply = x y more))))
@@ -2875,8 +2877,9 @@ not-every? (comp not every?))
 
 
 (defn none=
-  "Returns true if none of the arguments are equal"
+  "Returns true if no two of the arguments are equal"
   {:tag Boolean}
+  ([x] true)
   ([x y] (not (= x y)))
   ([x y & more]
    (if (not= x y)