yogsototh/marginalia
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fixed small bug in parser when a namespace don't have a docstring and also made it possible to parse inexistent namespaces.

Browse source
This commit is contained in:
Nicolas Buduroi 2011-01-19 15:21:50 -05:00
parent a92588f993
commit 30aec7ca6f
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/marginalia/parser.clj
View file

@ -86,7 +86,9 @@
(defn- extract-common-docstring
[form raw nspace-sym]
(let [sym (second form)
_ (if (= 'ns (first form)) (require sym))
_ (if (= 'ns (first form))
(try (require sym)
(catch Exception _)))
nspace (find-ns sym)]
(let [docstring (if nspace
(-> nspace meta :doc)
@ -98,7 +100,7 @@
(defmethod dispatch-form 'ns
[form raw nspace-sym]
(let [[ds r s] (extract-common-docstring form raw nspace-sym)]
(let [ds (nth form 2)
(let [ds (when (> (count form) 2) (nth form 2))
ds (when (string? ds) ds)]
[ds
(strip-docstring ds r)