diff options
Diffstat (limited to 'src/xml.clj')
| -rw-r--r-- | src/xml.clj | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/xml.clj b/src/xml.clj index 31af7dfd..e39cc053 100644 --- a/src/xml.clj +++ b/src/xml.clj @@ -73,16 +73,16 @@ (if (instance? String e) (println e) (do - (print (strcat "<" (name (:tag e)))) + (print (str "<" (name (:tag e)))) (when (:attrs e) (doseq attr (:attrs e) - (print (strcat " " (name (key attr)) "='" (val attr)"'")))) + (print (str " " (name (key attr)) "='" (val attr)"'")))) (if (:content e) (do (println ">") (doseq c (:content e) (emit-element c)) - (println (strcat "</" (name (:tag e)) ">"))) + (println (str "</" (name (:tag e)) ">"))) (println "/>"))))) (defn emit [x] |