RTL custom interface types as records

Src/AST/Myc.Ast.Script.pas

@@ -227,10 +227,6 @@ type
         function VisitNop(const Node: INopNode): TVoid; override;
     end;
 
-// -----------------------------------------------------------------------------
-// IMPLEMENTATION: Helpers & Basic Types
-// -----------------------------------------------------------------------------
-
 function TTokenKindHelper.ToString: String;
 begin
     case Self of
@@ -259,9 +255,7 @@ begin
     Result := TIdentities.Location(Line, Col);
 end;
 
-// -----------------------------------------------------------------------------
-// IMPLEMENTATION: Lexer
-// -----------------------------------------------------------------------------
+{ EParserException }
 
 constructor EParserException.Create(const AMessage: string; ALine, ACol: Integer);
 begin
@@ -270,6 +264,8 @@ begin
     FCol := ACol;
 end;
 
+{ TLexer }
+
 constructor TLexer.Create(const ASource: string);
 begin
     inherited Create;
@@ -811,9 +807,7 @@ begin
     Result := expr.Node;
 end;
 
-// -----------------------------------------------------------------------------
-// IMPLEMENTATION: PrettyPrintVisitor
-// -----------------------------------------------------------------------------
+{ TPrettyPrintVisitor }
 
 constructor TPrettyPrintVisitor.Create;
 begin
@@ -1136,9 +1130,7 @@ begin
     Append(')');
 end;
 
-// -----------------------------------------------------------------------------
-// IMPLEMENTATION: TAstScript Facade
-// -----------------------------------------------------------------------------
+{ TAstScript }
 
 class function TAstScript.Parse(const ASource: string): IAstNode;
 var