Fixed support for non-standard def* forms.
This commit is contained in:
parent
30aec7ca6f
commit
0709fd6598
1 changed files with 5 additions and 2 deletions
|
@ -131,8 +131,11 @@
|
||||||
(strip-docstring docstring raw)
|
(strip-docstring docstring raw)
|
||||||
nspace-sym]))
|
nspace-sym]))
|
||||||
|
|
||||||
(defmethod dispatch-form :default [_ raw nspace-sym]
|
(defmethod dispatch-form :default
|
||||||
[nil raw nspace-sym])
|
[form raw nspace-sym]
|
||||||
|
(if (re-find #"^def" (-> form first name))
|
||||||
|
(extract-common-docstring form raw nspace-sym)
|
||||||
|
[nil raw nspace-sym]))
|
||||||
|
|
||||||
(defn extract-docstring [m raw nspace-sym]
|
(defn extract-docstring [m raw nspace-sym]
|
||||||
(let [raw (join "\n" (subvec raw (-> m :start dec) (:end m)))
|
(let [raw (join "\n" (subvec raw (-> m :start dec) (:end m)))
|
||||||
|
|
Loading…
Reference in a new issue