diff options
| -rw-r--r-- | src/lux/lexer.clj | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/lux/lexer.clj b/src/lux/lexer.clj index cbb351703..90b1f2bf1 100644 --- a/src/lux/lexer.clj +++ b/src/lux/lexer.clj @@ -65,9 +65,12 @@ post-quotes (if (.endsWith pre-quotes "\\") (if eol? (fail "[Lexer Error] Can't leave dangling back-slash \\") - (|do [_ (&reader/read-regex #"^([\"])") - next-part (lex-text-body offset)] - (return (str "\"" next-part)))) + (if (if-let [^String back-slashes (re-find #"\\+$" pre-quotes)] + (odd? (.length back-slashes))) + (|do [_ (&reader/read-regex #"^([\"])") + next-part (lex-text-body offset)] + (return (str "\"" next-part))) + (lex-text-body offset))) (if eol? (|do [[_ _ ^String line-prefix] (&reader/read-regex #"^( +|$)") :let [empty-line? (= "" line-prefix)] |