Browse files

Add some type hints to the new emit event code

  • Loading branch information...
senior committed Jun 22, 2012
1 parent 857ffb3 commit 811cb8434f6f8160093d359aecc5bf4b279a1aea
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/main/clojure/clojure/data/xml.clj
@@ -35,13 +35,13 @@
(defrecord CData [content])
(defrecord Comment [content])
-(defn emit-start-tag [event writer]
+(defn emit-start-tag [event ^ writer]
(let [nspace (namespace (:name event))
qname (name (:name event))]
(.writeStartElement writer "" qname (or nspace ""))
(write-attributes (:attrs event) writer)))
-(defn emit-event [event writer]
+(defn emit-event [event ^ writer]
(case (:type event)
:start-element (emit-start-tag event writer)
:end-element (.writeEndElement writer)

0 comments on commit 811cb84

Please sign in to comment.