From d280c800be43b01c92ce31dca9d0a290220e63dd Mon Sep 17 00:00:00 2001
From: Mathnerd314 <man.is.allan@gmail.com>
Date: Sun, 3 May 2009 22:06:13 +0000
Subject: [PATCH] Fix infinite loop when encountering \r in a string

SVN-Revision: 5886
---
 src/lisp/lexer.cpp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/lisp/lexer.cpp b/src/lisp/lexer.cpp
index 451cb9aff..18f28e28a 100644
--- a/src/lisp/lexer.cpp
+++ b/src/lisp/lexer.cpp
@@ -102,8 +102,8 @@ Lexer::getNextToken()
       return TOKEN_CLOSE_PAREN;
     case '"': {  // string
       int startline = linenumber;
-      nextChar();
       while(1) {
+        nextChar();
         switch(c) {
         case '"':
           nextChar();
@@ -132,7 +132,8 @@ Lexer::getNextToken()
         default:
           break;
         }
-        addChar();
+        if(token_length < MAX_TOKEN_LENGTH)
+          token_string[token_length++] = c;
       }
 string_finished:
       token_string[token_length] = 0;
-- 
2.11.0