Permalink
Browse files

TNS-3: Actually use 'refresh-dirs' in 'refresh'

  • Loading branch information...
1 parent 0f192e2 commit bc9d5c1a6f191070a425b04feda9e2d3c2eb6928 @stuartsierra stuartsierra committed Oct 8, 2012
Showing with 2 additions and 1 deletion.
  1. +2 −1 src/main/clojure/clojure/tools/namespace/repl.clj
@@ -42,7 +42,8 @@
(defn- do-refresh [scan-fn]
(let [current-ns (ns-name *ns*)]
- (alter-var-root #'refresh-tracker scan-fn)
+ (alter-var-root #'refresh-tracker
+ #(apply scan-fn % refresh-dirs))
(alter-var-root #'refresh-tracker remove-disabled)
(print-pending-reloads refresh-tracker)
(alter-var-root #'refresh-tracker reload/track-reload)

0 comments on commit bc9d5c1

Please sign in to comment.