Refactoring

Src/AST/Myc.Ast.Evaluator.pas

@@ -62,20 +62,16 @@ type
         function Execute(const RootNode: IAstNode): TDataValue;
     end;
 
-// Registers native Delphi functions into a scope.
-procedure RegisterNativeFunctions(const AScope: IExecutionScope);
-
 implementation
 
 uses
     System.TypInfo,
     System.Generics.Defaults,
-    Myc.Ast, // Added
+    Myc.Ast,
     Myc.Data.Keyword,
     Myc.Data.Decimal,
     Myc.Data.Series,
     Myc.Data.Scalar.JSON;
-// Myc.Ast.Binding.Nodes; // Removed
 
 // Helper type for TCO via trampolining.
 type
@@ -93,34 +89,6 @@ begin
     Recur := ARecur;
 end;
 
-// --- Native Functions Implementation ---
-
-function NativeCreateRecordSeries(const Args: TArray<TDataValue>): TDataValue;
-var
-    jsonDef: string;
-    recordDef: IScalarRecordDefinition;
-    series: IRecordSeries;
-begin
-    if (Length(Args) <> 1) or (Args[0].Kind <> vkText) then
-        raise EArgumentException.Create('CreateRecordSeries requires one string argument.');
-
-    jsonDef := Args[0].AsText;
-    recordDef := TRttiAstHelper.JsonToRecordDefinition(jsonDef);
-
-    if Length(recordDef.Fields) = 0 then
-        raise EArgumentException.Create('Failed to parse record definition from JSON.');
-
-    series := TScalarRecordSeries.Create(recordDef);
-    Result := TDataValue.FromRecordSeries(series);
-end;
-
-// --- Registration Procedure ---
-
-procedure RegisterNativeFunctions(const AScope: IExecutionScope);
-begin
-    AScope.Define('CreateRecordSeries', TDataValue(NativeCreateRecordSeries));
-end;
-
 { TDynamicRecord }
 
 type