pascalabcnet/TestSuite/CompilationSamples/LambdaIf.pas

begin
  var p: procedure(x: integer);
  p := procedure(x) -> if True then Print(x);
  p(666);
end.
-												Изменение грамматики - запрет условной операции как тела лямбды (во избежание конфликтов с условным оператором)

											
										
										
											2020-01-13 02:01:52 +03:00
+								begin
-												bug fix #318 #317

											
										
										
											2016-12-12 21:57:41 +03:00
+								  var p: procedure(x: integer);
-												Изменение грамматики - запрет условной операции как тела лямбды (во избежание конфликтов с условным оператором)

											
										
										
											2020-01-13 02:01:52 +03:00
+								  p := procedure(x) -> if True then Print(x);
-												bug fix #318 #317

											
										
										
											2016-12-12 21:57:41 +03:00
+								  p(666);
 								end.