From: Michael D. Lowis <mike@mdlowis.com>
Date: Sat, 10 Mar 2018 02:45:39 +0000 (-0500)
Subject: fixed bug in string literals
X-Git-Url: https://git.mdlowis.com/?a=commitdiff_plain;h=616002f1a66d204a089b04f14d90ced851ffcb1c;p=archive%2Ftide-hl.git

fixed bug in string literals
---

diff --git a/lex_cpp.mll b/lex_cpp.mll
index 0c13ebd..a2ffc46 100644
--- a/lex_cpp.mll
+++ b/lex_cpp.mll
@@ -13,7 +13,7 @@ let istyle = ['u' 'U' 'l' 'L']
 
 let ln_cmt = "//" [^ '\n']*
 let character = "'" ([^'\\' '\''] | '\\' _) "'"
-let string = '"' ([^'\\' '"'] | '\\' _)* ['"' '\n']
+let string = '"' ([^'\\' '"' '\n'] | '\\' _)* '"'
 let identifier = alpha_ alnum_*
 let preprocess = "#" [' ' '\t']* alpha_+
 let sys_incl = (' '|'\t')* '<' [^ '\n' '>']* '>'