AST testing
This commit is contained in:
@@ -60,7 +60,7 @@ end;
|
||||
|
||||
function TAstToTextVisitor.VisitAssignment(const Node: IAssignmentNode): string;
|
||||
begin
|
||||
Result := Node.Identifier.Name + ' := ' + Accept(Node.Value);
|
||||
Result := Accept(Node.Target) + ' := ' + Accept(Node.Value);
|
||||
end;
|
||||
|
||||
function TAstToTextVisitor.VisitBlockExpression(const Node: IBlockExpressionNode): string;
|
||||
@@ -259,7 +259,7 @@ begin
|
||||
initStr := ' := ' + Accept(Node.Initializer)
|
||||
else
|
||||
initStr := '';
|
||||
Result := 'var ' + Node.Identifier.Name + initStr;
|
||||
Result := 'var ' + Accept(Node.Target) + initStr;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
Reference in New Issue
Block a user