remove tag from EndElementEvent

this data was unused and it was set wrong

Author: bendlas

src/main/clojure/clojure/data/xml/event.clj

@@ -26,13 +26,16 @@
    attrs #(merge-nss (element-nss* element) %2)))
 
 ; Represents a parse event.
-; type is one of :start-element, :end-element, or :characters
 (defrecord StartElementEvent [tag attrs nss location-info])
-(defrecord EndElementEvent [tag])
 (defrecord CharsEvent [str])
 (defrecord CDataEvent [str])
 (defrecord CommentEvent [str])
 
+;; EndElementEvent doesn't have any data, so make it a singleton
+(deftype EndElementEvent [])
+(def end-element-event (EndElementEvent.))
+(defn ->EndElementEvent [] end-element-event)
+
 ;; Event Generation for stuff to show up in generated xml
 
 (let [second-arg #(do %2)
@@ -42,7 +45,7 @@
                      attrs #(->StartElementEvent
                              tag %1 (merge-nss (element-nss* element) %2) nil)))
        :next-events (fn elem-next-events [{:keys [tag content]} next-items]
-                      (list* content (->EndElementEvent tag) next-items))}]
+                      (list* content end-element-event next-items))}]
   (extend-protocol-fns
    EventGeneration
    (StartElementEvent EndElementEvent CharsEvent CDataEvent CommentEvent)
@@ -87,4 +90,4 @@
     :else (throw (ex-info "Illegal argument, not an event object" {:event event}))))
 
 (defn event-exit? [event]
-  (instance? EndElementEvent event))
+  (identical? end-element-event event))

src/main/clojure/clojure/data/xml/jvm/parse.clj

@@ -88,7 +88,7 @@
          XMLStreamConstants/END_ELEMENT
          (if (include-node? :element)
            (do (assert (seq ns-envs) "Balanced end")
-               (cons (->EndElementEvent (keyword (.getLocalName sreader)))
+               (cons (->EndElementEvent)
                      (pull-seq sreader opts (rest ns-envs))))
            (recur))
          XMLStreamConstants/CHARACTERS