fix #1984

Configuration/GlobalAssemblyInfo.cs

@@ -15,7 +15,7 @@ internal static class RevisionClass
 	public const string Major = "3";
 	public const string Minor = "5";
 	public const string Build = "0";
-	public const string Revision = "2094";
+	public const string Revision = "2095";
 
         public const string MainVersion = Major + "." + Minor;
 	public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

Configuration/Version.defs

@@ -1,4 +1,4 @@
-%COREVERSION%=0
-%REVISION%=2094
 %MINOR%=5
+%REVISION%=2095
+%COREVERSION%=0
 %MAJOR%=3

ReleaseGenerators/PascalABCNET_version.nsh

@@ -1 +1 @@
-!define VERSION '3.5.0.2094'
+!define VERSION '3.5.0.2095'

SyntaxTreeConverters/StandOutExprWithLambdaInForeachSequenceVisitor.cs

@@ -26,7 +26,7 @@ namespace PascalABCCompiler.SyntaxTreeConverters
 
         public override void visit(foreach_stmt fe)
         {
-            if (fe.DescendantNodes().OfType<function_lambda_definition>().Count() > 0)
+            //if (fe.DescendantNodes().OfType<function_lambda_definition>().Count() > 0) // из-за #1984 убрал вообще условие. Пусть будет всегда
             {
                 var id = GenIdentName();
                 id.Parent = fe;

TestSuite/lambda_capture_foreach_seq2.pas

@@ -0,0 +1,17 @@
+type
+  t1 = class
+    s := Seq&<byte>(2,2,2);
+    procedure p1;
+    begin
+      var p: procedure := ()->
+      begin
+        foreach var tsk in s do 
+          Assert(tsk=2)
+      end;
+      p;
+    end;
+  end;
+
+begin 
+  t1.Create.p1
+end.