fixed bug in string literals

diff --git a/lex_cpp.mll b/lex_cpp.mll
index 0c13ebd3e9a926f4517c42a099dc3180030f0ec6..a2ffc46264eeb3df36af29d9db25372e279bb871 100644 (file)
--- 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' '>']* '>'