From 34466adb3643e119733c091165403ebca0deb34e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=D0=91=D0=BE=D0=BD=D0=B4=D0=B0=D1=80=D0=B5=D0=B2=20=D0=98?=
 =?UTF-8?q?=D0=B2=D0=B0=D0=BD?= <ibond84@googlemail.com>
Date: Sun, 27 May 2018 15:11:14 +0200
Subject: [PATCH] bug fix #857

---
 Parsers/PascalABCParserNewSaushkin/SemanticRules.cs | 1 +
 TestSuite/formatstring4.pas                         | 5 +++++
 2 files changed, 6 insertions(+)
 create mode 100644 TestSuite/formatstring4.pas

diff --git a/Parsers/PascalABCParserNewSaushkin/SemanticRules.cs b/Parsers/PascalABCParserNewSaushkin/SemanticRules.cs
index f0250a1e0..9416986f3 100644
--- a/Parsers/PascalABCParserNewSaushkin/SemanticRules.cs
+++ b/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)
diff --git a/TestSuite/formatstring4.pas b/TestSuite/formatstring4.pas
new file mode 100644
index 000000000..b488b0b72
--- /dev/null
+++ b/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.
\ No newline at end of file