Refactoring

Src/AST/Myc.Ast.Nodes.pas

@@ -45,14 +45,6 @@ type
         class operator Equal(const A: TResolvedAddress; B: TResolvedAddress): Boolean;
     end;
 
-    IValueCell = interface
-        {$region 'private'}
-        function GetValue: TDataValue;
-        procedure SetValue(const AValue: TDataValue);
-        {$endregion}
-        property Value: TDataValue read GetValue write SetValue;
-    end;
-
     IAstVisitor = interface
         function VisitConstant(const Node: IConstantNode): TDataValue;
         function VisitIdentifier(const Node: IIdentifierNode): TDataValue;

Src/AST/Myc.Ast.Scope.pas

@@ -13,6 +13,14 @@ type
     IExecutionScope = interface;
     IScopeDescriptor = interface;
 
+    IValueCell = interface
+        {$region 'private'}
+        function GetValue: TDataValue;
+        procedure SetValue(const AValue: TDataValue);
+        {$endregion}
+        property Value: TDataValue read GetValue write SetValue;
+    end;
+
     IExecutionScope = interface
         {$region 'private'}
         function GetParent: IExecutionScope;