Add carriage return to string lexer.

diff --git a/parse/l5.lex b/parse/l5.lex
index 32665a64d5c69b2fefb3d0daaa76140e17bd70d4..667638cbd5e07f122c5bedc60546982404f200be 100644 (file)
--- a/parse/l5.lex
+++ b/parse/l5.lex
@@ -191,6 +191,7 @@ quote = [\"];
 
 <STRING> "\\\\"       => (addString "\\" ; lex() );
 <STRING> "\\n"        => (addString "\n" ; lex() );
 
 <STRING> "\\\\"       => (addString "\\" ; lex() );
 <STRING> "\\n"        => (addString "\n" ; lex() );

+<STRING> "\\r"        => (addString "\r" ; lex() );

 <STRING> "\\t"        => (addString "\t" ; lex() );
 <STRING> "\\\""       => (addString "\t" ; lex() );
 <STRING> "\\".        => (ErrorMsg.error (ParseState.ext (yypos,yypos))
 <STRING> "\\t"        => (addString "\t" ; lex() );
 <STRING> "\\\""       => (addString "\t" ; lex() );
 <STRING> "\\".        => (ErrorMsg.error (ParseState.ext (yypos,yypos))