From da57eb044068ea12dd7f9c74e1321870e23b38dc Mon Sep 17 00:00:00 2001
From: Jean Niklas L'orange <jeannikl@hypirion.com>
Date: Fri, 8 Aug 2014 21:03:28 +0200
Subject: [PATCH] Use pr-str for clj/sjacket roundtrip. Fixes #1632.

---
 src/leiningen/change.clj | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/src/leiningen/change.clj b/src/leiningen/change.clj
index 9aea31be..c27e915f 100644
--- a/src/leiningen/change.clj
+++ b/src/leiningen/change.clj
@@ -14,9 +14,7 @@
   (throw (IllegalArgumentException. msg)))
 
 (defn- clj->sjacket [value]
-  (if (string? value)
-    (str "\"" value "\"")
-    (-> value print-str parser/parser :content first)))
+  (-> value pr-str parser/parser :content first))
 
 ;; NOTE: this destroy comments, formatting, etc.
 (defn- sjacket->clj [value]