bug fix #2073

TestSuite/lambdas_closures_10.pas

@@ -1,4 +1,4 @@
-type
+type
   Recurrent<T> = class 
     first: T;
     next: Func<T,T>;

TestSuite/namespaces/nslambda1.pas

@@ -0,0 +1,20 @@
+namespace nslambda1;
+
+type
+  T1 = class
+    public static function Contains(s: string; c: char) := s.Any(x -> x = c);
+  end;
+  
+  t2 = class
+    
+    const c1 = 5;
+    
+    procedure p1;
+    begin
+      var arr1 := ArrGen(1, i -> c1);
+      assert(arr1[0] = 5);
+    end;
+    
+  end;
+
+end.

TestSuite/use_ns_lambda1.pas

@@ -0,0 +1,8 @@
+//nopabcrtl
+{$includenamespace 'namespaces/nslambda1.pas'}
+
+uses nslambda1;
+begin
+  assert(T1.Contains('abc','b') = true);
+  t2.Create.p1;
+end.

TreeConverter/TreeConversion/syntax_tree_visitor.cs

@@ -4040,7 +4040,7 @@ namespace PascalABCCompiler.TreeConverter
                 {
                     generate_default_constructor();
                 }
-                if (!context.namespace_converted)
+                if (!context.namespace_converted || context.converted_type.name.IndexOf("<>") != -1)
                     visit_class_member_realizations(_class_body);
             }