Fixed parser creation

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

source/InterpreterShell.Mod

@@ -809,7 +809,7 @@ TYPE
 				context.out.Update;
 				scanner := Scanner.NewScanner("", r, 0, diagnostics);
 				scanner.SetCase(Scanner.Lowercase);
-				NEW(parser, scanner, diagnostics); (* silent *) 
+				NEW(parser, scanner, diagnostics, ""); (* silent *) 
 				parser.SetLax;
 				
 				NEW(container);
@@ -855,7 +855,7 @@ TYPE
 					IF parser.error THEN parser.Reset END;
 					parser.NextSymbol;
 					(*NEW(scanner, "",r, 0, diagnostics);
-					NEW(parser, scanner, diagnostics); (* silent *)*)
+					NEW(parser, scanner, diagnostics, ""); (* silent *)*)
 				END;
 				
 				END;