bug fix #857

Parsers/PascalABCParserNewSaushkin/SemanticRules.cs

@@ -394,6 +394,7 @@ namespace GPPGParserScanner
             scanner.parsertools = parsertools;// передали parsertools в объект сканера
             GPPGParser parser = new GPPGParser(scanner);
             parsertools.build_tree_for_formatter = false;
+            parser.lambdaHelper = this.lambdaHelper;
             parser.parsertools = parsertools;
             if (!parser.Parse())
                 if (parsertools.errors.Count == 0)

TestSuite/formatstring4.pas

@@ -0,0 +1,5 @@
+begin
+  var p: procedure := procedure()->exit;
+  var s := $'{Seq(0).Select(i->i).First}';
+  assert(s = '0');
+end.