Fix in Recur Node declaration

This commit is contained in:
Michael Schimmel
2025-09-29 11:23:39 +02:00
parent 624af31243
commit e1a46da6f8
5 changed files with 2 additions and 13 deletions
-7
View File
@@ -157,7 +157,6 @@ type
private
FArguments: TArray<IAstNode>;
function GetArguments: TArray<IAstNode>;
function GetIsTailCall: Boolean;
public
constructor Create(const AArguments: TArray<IAstNode>);
function Accept(const Visitor: IAstVisitor): TDataValue; override;
@@ -472,12 +471,6 @@ begin
Result := FArguments;
end;
function TRecurNode.GetIsTailCall: Boolean;
begin
// 'recur' is always a tail call by definition.
Result := True;
end;
{ TBlockExpressionNode }
constructor TBlockExpressionNode.Create(const AExpressions: array of IAstNode);