accepting meta from pods
This commit is contained in:
parent
879d3a35f9
commit
8fa9f945a6
1 changed files with 7 additions and 1 deletions
|
|
@ -122,7 +122,13 @@
|
||||||
#(Boolean/parseBoolean %))
|
#(Boolean/parseBoolean %))
|
||||||
name-sym (symbol name)
|
name-sym (symbol name)
|
||||||
sym (symbol ns-name-str name)
|
sym (symbol ns-name-str name)
|
||||||
code (get-maybe-string var "code")]
|
code (get-maybe-string var "code")
|
||||||
|
vmeta (some-> (get var "meta")
|
||||||
|
bytes->string
|
||||||
|
edn/read-string)
|
||||||
|
name-sym (if vmeta
|
||||||
|
(with-meta name-sym vmeta)
|
||||||
|
name-sym)]
|
||||||
[name-sym
|
[name-sym
|
||||||
(or code
|
(or code
|
||||||
(fn [& args]
|
(fn [& args]
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue