fix #1893

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

Configuration/Version.defs

@@ -1,4 +1,4 @@
 %MINOR%=5
-%REVISION%=2151
+%REVISION%=2153
 %COREVERSION%=0
 %MAJOR%=3

ReleaseGenerators/PascalABCNET_version.nsh

@@ -1 +1 @@
-!define VERSION '3.5.0.2151'
+!define VERSION '3.5.0.2153'

TestSuite/lambda_2_lambda.pas

@@ -0,0 +1,25 @@
+type
+  t1 = class
+    pf: procedure;
+    
+    procedure p1;
+    begin
+      var obj: byte;
+      
+      var lp2: procedure := ()->
+      begin
+        obj := obj;
+        pf := ()->
+        begin
+          Print(1);
+        end;
+        pf;
+      end;
+      lp2;
+    end;
+  
+  end;
+
+begin 
+  t1.Create.p1;
+end.

TreeConverter/LambdaExpressions/Closure/CapturedVariablesTreeBuilder.cs

@@ -248,10 +248,10 @@ namespace TreeConverter.LambdaExpressions.Closure
                 }
                 if (ok)
                 {
-                    if (id.Parent is var_def_statement)
+                    ProcessNode(dn); // SSM 26.06.19 #1893
+                    /*if (id.Parent is var_def_statement)
                         ProcessNode(dn); // Грубая правка, закрывающая ошибку #1390 // SSM 19.06.19 заменил id на dn
-                    else ProcessNode(id.Parent); // Грубо, поскольку id.Parent уже начал обходиться - а здесь рекурсия
-                    // Это рубится на коде var s := c; где s - локальная в лямбде, а c - захваченное поле класса. В результате s создаётся дважды.
+                    else ProcessNode(dn); // Грубо, поскольку id.Parent уже начал обходиться - а здесь рекурсия // Это рубится на коде var s := c; где s - локальная в лямбде, а c - захваченное поле класса. В результате s создаётся дважды.*/
                     return;
                 }
             }