diff options
Diffstat (limited to 'src/clj/clojure/xml.clj')
| -rw-r--r-- | src/clj/clojure/xml.clj | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/clj/clojure/xml.clj b/src/clj/clojure/xml.clj index ba14d4c7..7df67bfa 100644 --- a/src/clj/clojure/xml.clj +++ b/src/clj/clojure/xml.clj @@ -6,7 +6,7 @@ ; the terms of this license. ; You must not remove this notice, or any other, from this software. -(ns #^{:doc "XML reading/writing." +(ns ^{:doc "XML reading/writing." :author "Rich Hickey"} clojure.xml (:import (org.xml.sax ContentHandler Attributes SAXException) @@ -32,7 +32,7 @@ (set! *current* (push-content *current* (str *sb*)))))] (new clojure.lang.XMLHandler (proxy [ContentHandler] [] - (startElement [uri local-name q-name #^Attributes atts] + (startElement [uri local-name q-name ^Attributes atts] (let [attrs (fn [ret i] (if (neg? i) ret @@ -55,10 +55,10 @@ (set! *stack* (pop *stack*)) (set! *state* :between) nil) - (characters [#^chars ch start length] + (characters [^chars ch start length] (when-not (= *state* :chars) (set! *sb* (new StringBuilder))) - (let [#^StringBuilder sb *sb*] + (let [^StringBuilder sb *sb*] (.append sb ch (int start) (int length)) (set! *state* :chars)) nil) |