diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/clojure/contrib/lazy_xml.clj | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/clojure/contrib/lazy_xml.clj b/src/clojure/contrib/lazy_xml.clj index 6abc212e..f8b07fe0 100644 --- a/src/clojure/contrib/lazy_xml.clj +++ b/src/clojure/contrib/lazy_xml.clj @@ -122,7 +122,7 @@ ([s startparse queue-size] (first (mktree (parse-seq s startparse queue-size))))) -(def escape-xml-map {\< "<" \> ">" \" """ \& "&"}) +(def escape-xml-map (zipmap "'<>\"&" (map #(str \& % \;) '[apos lt gt quot amp]))) (defn escape-xml [text] (apply str (map #(escape-xml-map % %) text))) |