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

Do not dispatch as a named thing if it's not a named thing. This was problematic on something like this (#{1 2 3} a)

Browse source
This commit is contained in:
fogus 2011-12-19 09:02:00 -05:00
parent 8b01a596ad
commit 7efe1c4666
1 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/marginalia/parser.clj
View file

@ -233,10 +233,13 @@
;; Strings which are inlined into clojure files outside of forms are parsed
;; as `String` instances, while numbers - as `Number` subclasses.
(cond (or (string? form) (number? form) (keyword? form))
(dispatch-literal form raw nspace-sym)
(re-find #"^def" (-> form first name))
(extract-common-docstring form raw nspace-sym)
:else (dispatch-inner-form form raw nspace-sym)))
(dispatch-literal form raw nspace-sym)
(and (first form)
(.isInstance clojure.lang.Named (first form))
(re-find #"^def" (-> form first name)))
(extract-common-docstring form raw nspace-sym)
:else
(dispatch-inner-form form raw nspace-sym)))
(defn extract-docstring [m raw nspace-sym]
(let [raw (join "\n" (subvec raw (-> m :start dec) (:end m)))