Refactor escape
authorJoel Holdbrooks <cjholdbrooks@gmail.com>
Thu, 15 Aug 2013 21:53:30 +0000 (14:53 -0700)
committerJoel Holdbrooks <cjholdbrooks@gmail.com>
Sat, 17 Aug 2013 21:54:10 +0000 (14:54 -0700)
src/clj/frak.clj

index 31797198d804c218a3132b200353cf1521da5b73..8de473ebb716c130b5b54de91edbaac741dc4232 100644 (file)
@@ -48,8 +48,8 @@
 
 (def ^:private escape-char? escape-chars)
 
-(defn escape [c]
-  (if (escape-char? c) (str "\\" c) (str c)))
+(defn- escape [c]
+  (str (when (escape-char? c) "\\") c))
 
 (def ^{:private true :dynamic true} *capture* false)