Skip to content
This repository
Browse code

continue Clojure 1.4 support (esp. for lein plugin usage)

  • Loading branch information...
commit 8ec79b42936920b05d04ce0bb5ee89cba30ef77a 1 parent ce7d9b6
Chas Emerick cemerick authored

Showing 1 changed file with 5 additions and 1 deletion. Show diff stats Hide diff stats

  1. +5 1 src/kibit/check.clj
6 src/kibit/check.clj
@@ -193,6 +193,10 @@
193 193 (keep #(check-aux % simplify-fn guard)
194 194 ((res->read-seq resolution) reader))))
195 195
  196 +(def ^:private default-data-reader-binding
  197 + (when (resolve '*default-data-reader-fn*)
  198 + {(resolve '*default-data-reader-fn*) (fn [tag val] val)}))
  199 +
196 200 (defn check-file
197 201 ""
198 202 [source-file & kw-opts]
@@ -201,7 +205,7 @@
201 205 (merge default-args
202 206 (apply hash-map kw-opts))]
203 207 (with-open [reader (io/reader source-file)]
204   - (binding [*default-data-reader-fn* (fn [tag val] val)]
  208 + (with-bindings default-data-reader-binding
205 209 (doseq [simplify-map (check-reader reader
206 210 :rules rules
207 211 :guard guard

0 comments on commit 8ec79b4

Please sign in to comment.
Something went wrong with that request. Please try again.