Drop CR in string tokens in the Lisp parser

SVN-Revision: 4279

diff --git a/src/lisp/lexer.cpp b/src/lisp/lexer.cpp
index de3243e..9b4220b 100644 (file)
--- a/src/lisp/lexer.cpp
+++ b/src/lisp/lexer.cpp
@@ -109,6 +109,8 @@ Lexer::getNextToken()
             nextChar();
             if(*c == '"')
               break;
+            else if (*c == '\r') // XXX this breaks with pure \r EOL
+              continue;
             else if(*c == '\n')
               linenumber++;
             else if(*c == '\\') {