diff options
| author | Chouser <chouser@n01se.net> | 2009-02-17 20:42:30 +0000 |
|---|---|---|
| committer | Chouser <chouser@n01se.net> | 2009-02-17 20:42:30 +0000 |
| commit | d5701c377f826266d19e21ce11398616d63f25bb (patch) | |
| tree | f7212ede149f60323a697e5834b9fa369eb8c73f /src/clojure/contrib/json/write.clj | |
| parent | ab67c84237f052fea57d7cbfc45d7908026f46fa (diff) | |
Merged lazy branch into trunk:
svn merge -r472:477 ../branches/lazy/
Diffstat (limited to 'src/clojure/contrib/json/write.clj')
| -rw-r--r-- | src/clojure/contrib/json/write.clj | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/clojure/contrib/json/write.clj b/src/clojure/contrib/json/write.clj index c9e6852b..6983ad78 100644 --- a/src/clojure/contrib/json/write.clj +++ b/src/clojure/contrib/json/write.clj @@ -43,9 +43,9 @@ (loop [x s] (when (first x) (print-json (first x)) - (when (rest x) + (when (next x) (print ",") - (recur (rest x))))) + (recur (next x))))) (print "]")) (defmethod print-json :object [m] @@ -56,9 +56,9 @@ (print-json k) (print ":") (print-json v)) - (when (rest x) + (when (next x) (print ",") - (recur (rest x))))) + (recur (next x))))) (print "}")) (defn json-str |