Tail call optimization

Src/AST/Myc.Ast.JSON.pas

@@ -70,6 +70,7 @@ type
     public
         constructor Create;
         destructor Destroy; override;
+        function Execute(const RootNode: IAstNode): TDataValue;
         function Serialize(const ANode: IAstNode): string;
         function Deserialize(const AJson: string): IAstNode;
     end;
@@ -127,6 +128,11 @@ begin
     end;
 end;
 
+function TJsonAstConverter.Execute(const RootNode: IAstNode): TDataValue;
+begin
+    Result := RootNode.Accept(Self);
+end;
+
 { TJsonAstConverter - IAstVisitor for Serialization }
 
 procedure TJsonAstConverter.ScalarToJson(const AScalar: TScalar; const AParent: TJSONObject; const AName: string);