Skip to content

Instantly share code, notes, and snippets.

@michalmarczyk

michalmarczyk/unuse-reuse.clj

Created July 13, 2010 11:35
Show Gist options
  • Save michalmarczyk/473759 to your computer and use it in GitHub Desktop.
Save michalmarczyk/473759 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
unuse-reuse.clj
(defn unuse [ns]
(doseq [[n v] (ns-refers *ns*)]
(if (= (.. v ns name) ns)
(ns-unmap *ns* n))))
(defn reuse [ns]
(unuse ns)
(remove-ns ns)
(use :reload-all ns))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment