- (defn refer-private
- "Refers every var in ns into the current ns."
- (doseq [[symbol var] (ns-interns ns)]
- (when (:private (meta var))
- (intern *ns* symbol var))))
a guest Aug 24th, 2011 64 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
RAW Paste Data