From ff046876ef710ff200c5a42a59fa010054862465 Mon Sep 17 00:00:00 2001 From: Joel Holdbrooks Date: Thu, 15 Aug 2013 14:19:51 -0700 Subject: [PATCH] Change escape-chars? to escape-chars, alias escape-chars? to escape-chars --- src/clj/frak.clj | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/clj/frak.clj b/src/clj/frak.clj index 928859f..b00e09a 100644 --- a/src/clj/frak.clj +++ b/src/clj/frak.clj @@ -46,9 +46,11 @@ (def ^{:private true :doc "Characters to escape when rendering a regular expression."} - escape-char? + escape-chars #{\\ \^ \$ \* \+ \? \. \| \( \) \{ \} \[ \]}) +(def ^:private escape-char? escape-chars) + (defn escape [c] (if (escape-char? c) (str "\\" c) (str c))) -- 2.25.1