bug fix #976

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 = "2092";
+	public const string Revision = "2094";
 
         public const string MainVersion = Major + "." + Minor;
 	public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

Configuration/Version.defs

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

ReleaseGenerators/PascalABCNET_version.nsh

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

SyntaxTreeConverters/StandOutExprWithLambdaInForeachSequenceVisitor.cs

@@ -26,7 +26,7 @@ namespace PascalABCCompiler.SyntaxTreeConverters
 
         public override void visit(foreach_stmt fe)
         {
-            if (fe.in_what.DescendantNodes().OfType<function_lambda_definition>().Count() > 0)
+            if (fe.DescendantNodes().OfType<function_lambda_definition>().Count() > 0)
             {
                 var id = GenIdentName();
                 id.Parent = fe;

TestSuite/lambda_capture_foreach_seq.pas

@@ -0,0 +1,24 @@
+type
+  t0 = class
+    public s1: sequence of integer;
+  end;
+  
+  t1 = class
+    procedure p1;
+    begin
+      var a2: t0;
+      var a1: t0;
+      foreach var x in a1.s1 do
+      begin
+        var p: procedure := ()->
+        begin
+          writeln(x);
+          a1 := a1;
+        end;
+      end;
+    end;
+  end;
+
+begin
+  Assert(1=1);
+end.