Fixed newline detection

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@8182 8c9fc860-2736-0410-a75d-ab315db34111

source/FoxScanner.Mod

@@ -840,6 +840,7 @@ TYPE
 				symbol.position := position;
 				endPos := position.start;
 				IF (ch >= 'A') & (ch <= 'Z') OR (ch >= 'a') & (ch <= 'z') THEN
+					newline := FALSE;
 					GetIdentifier(symbol);
 					IF (case=Uppercase) & (symbol.identifierString = "END") OR (case=Lowercase) & (symbol.identifierString = "end") THEN
 						s := End