Use 1.3 style private vars in r.h.httpcore.

mmcgrana · 18140ddc3d2d4c9fee70559cf50ef7aba7c2da3b · mmcgrana committed Oct 26, 2010 · Oct 26, 2010 · 18140dd
1 parent 8b9fec4
commit 18140ddc3d2d4c9fee70559cf50ef7aba7c2da3b
Unified Split

Showing with 2 additions and 2 deletions.

+2 −2 ring-httpcore-adapter/src/ring/adapter/httpcore.clj
@@ -26,12 +26,12 @@
              Executors Executor ThreadFactory))
   (:use [clojure.contrib.except :only (throwf)]))
 
-(defmacro ^{:private true} -?>
+(defmacro ^:private -?>
  ([form] form)
  ([form next-form & forms]
    `(when-let [x# ~form] (-?> (-> x# ~next-form) ~@forms))))
 
-(defmacro ^{:private true} instance?-> [type x & forms]
+(defmacro ^:private instance?-> [type x & forms]
   `(when (instance? ~type ~x) (-> ~(vary-meta x assoc :tag type) ~@forms)))
 
 (defn- charset [^BasicHeader content-type-header]