fix NAMESPACE select

This commit is contained in:
nathanmarz 2017-02-15 10:12:08 -05:00
parent d595b9f26b
commit ffcba01df7

View file

@ -987,7 +987,7 @@
NAMESPACE
[]
(select* [this structure next-fn]
(next-fn (name structure)))
(next-fn (namespace structure)))
(transform* [this structure next-fn]
(let [name (name structure)
new-ns (next-fn (namespace structure))]