yogsototh/leiningen
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use pr-str for clj/sjacket roundtrip. Fixes #1632.

Browse source
This commit is contained in:
Jean Niklas L'orange 2014-08-08 21:03:28 +02:00
parent 2a3fe249c0
commit da57eb0440
1 changed files with 1 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/leiningen/change.clj
View file

@ -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]