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

Keep an eye out for docstrings for def forms. Was causing issue with the likes of (def foo "not a docstring")

Browse source
This commit is contained in:
fogus 2011-12-19 08:24:00 -05:00
parent 1b97660357
commit 8b01a596ad
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/marginalia/parser.clj
View file

@ -154,8 +154,8 @@
(try (require sym)
(catch Exception _)))
(let [nspace (find-ns sym)
maybe-ds (let [[_ _ ? & _] form] ?)
docstring (if (string? maybe-ds)
[maybe-ds remainder] (let [[_ _ ? & more?] form] [? more?])
docstring (if (and (string? maybe-ds) remainder)
maybe-ds
(if-let [ds (:doc (meta (second form)))]
ds