 
 (defn bit-xor
   "Bitwise exclusive or"
-  [x y] (js* "(~{x} ^ ~{n})"))
+  [x y] (js* "(~{x} ^ ~{y})"))
 
 (defn bit-shift-left
   "Bitwise shift left"

(defn not-every?
  "Returns false if (pred x) is logical true for every x in
  coll, else true."
  [pred coll] (not (every pred coll)))

(defn some
  "Returns the first logical true value of (pred x) for any x in coll,


  IStack
  (-peek [coll] first)
  (-pop [coll] (-rest coll))

  ICollection
  (-conj [coll o] (List. meta o coll (inc count)))
