diff options
| author | Rich Hickey <richhickey@gmail.com> | 2008-02-11 22:21:35 +0000 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2008-02-11 22:21:35 +0000 |
| commit | 5ec214d9b28f63c94efd2212e87e10dca547170a (patch) | |
| tree | 6e4216b02e2abe4a63c1aec568325f14bc90b0e5 /src/xml.clj | |
| parent | 6c8f13fb47e1d42b0f1ce37cd36cd85eaae99598 (diff) | |
changed strcats to str
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] |