Use pr-str for clj/sjacket roundtrip. Fixes #1632.
This commit is contained in:
parent
2a3fe249c0
commit
da57eb0440
1 changed files with 1 additions and 3 deletions
|
@ -14,9 +14,7 @@
|
||||||
(throw (IllegalArgumentException. msg)))
|
(throw (IllegalArgumentException. msg)))
|
||||||
|
|
||||||
(defn- clj->sjacket [value]
|
(defn- clj->sjacket [value]
|
||||||
(if (string? value)
|
(-> value pr-str parser/parser :content first))
|
||||||
(str "\"" value "\"")
|
|
||||||
(-> value print-str parser/parser :content first)))
|
|
||||||
|
|
||||||
;; NOTE: this destroy comments, formatting, etc.
|
;; NOTE: this destroy comments, formatting, etc.
|
||||||
(defn- sjacket->clj [value]
|
(defn- sjacket->clj [value]
|
||||||
|
|
Loading…
Reference in a new issue