From 0dcc5252606f69493657983f99ad9e9c6b66cb29 Mon Sep 17 00:00:00 2001
From: Mikhalkovich Stanislav <miks@math.sfedu.ru>
Date: Thu, 27 Jun 2019 08:56:39 +0300
Subject: [PATCH] fix  #1756

---
 TestSuite/errors/err0324.pas                 | 3 +++
 TreeConverter/TreeConversion/LambdaHelper.cs | 2 ++
 2 files changed, 5 insertions(+)
 create mode 100644 TestSuite/errors/err0324.pas

diff --git a/TestSuite/errors/err0324.pas b/TestSuite/errors/err0324.pas
new file mode 100644
index 000000000..44c2d402a
--- /dev/null
+++ b/TestSuite/errors/err0324.pas
@@ -0,0 +1,3 @@
+begin
+  var a: sequence of procedure;
+end.
\ No newline at end of file
diff --git a/TreeConverter/TreeConversion/LambdaHelper.cs b/TreeConverter/TreeConversion/LambdaHelper.cs
index 659c9d373..0ca1ba795 100644
--- a/TreeConverter/TreeConversion/LambdaHelper.cs
+++ b/TreeConverter/TreeConversion/LambdaHelper.cs
@@ -248,6 +248,8 @@ namespace PascalABCCompiler.TreeConverter
                     else
                         return false;
                 }
+                else
+                    return false; // Т.е. это - лямбда с коротким телом, но в результате сахарных преобразований Result := переменстился не на первое место - тогда преобразовать нельзя
             }
 
             lambdaDef.return_type = null;