fix #1989

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

Configuration/Version.defs

@@ -1,4 +1,4 @@
-%MINOR%=5
-%REVISION%=2149
 %COREVERSION%=0
+%REVISION%=2150
+%MINOR%=5
 %MAJOR%=3

Parsers/PascalABCParserNewSaushkin/ABCPascal.cs

@@ -2,7 +2,7 @@
 //  This CSharp output file generated by Gardens Point LEX
 //  Version:  1.1.3.301
 //  Machine:  DESKTOP-G8V08V4
-//  DateTime: 19.06.2019 14:36:10
+//  DateTime: 24.06.2019 15:32:41
 //  UserName: ?????????
 //  GPLEX input file <ABCPascal.lex>
 //  GPLEX frame file <embedded resource>

Parsers/PascalABCParserNewSaushkin/ABCPascal.y

@@ -4689,7 +4689,7 @@ common_lambda_body
 
 
 lambda_function_body
-	: expr_l1 
+	: expr_l1_func_decl_lambda 
 		{
 		    var id = SyntaxVisitors.ExprHasNameVisitor.HasName($1, "Result"); 
             if (id != null)

Parsers/PascalABCParserNewSaushkin/PABC.ymc

@@ -244,5 +244,6 @@ script=
 
 
 
+
 
 

ReleaseGenerators/PascalABCNET_version.nsh

@@ -1 +1 @@
-!define VERSION '3.5.0.2149'
+!define VERSION '3.5.0.2150'

TestSuite/lambda_lambda.pas

@@ -0,0 +1,10 @@
+begin
+  var f: ()->()->();
+  
+  f :=
+    ()->()->Assert(1=1); //Ошибка: Встречено ')', а ожидалось выражение
+   
+  var p := f();
+  p;
+  
+end.