Refactoring

Src/AST/Myc.Ast.Scope.pas

@@ -112,7 +112,7 @@ type
             TScopeItem = record
                 Value: TDataValue;
                 IsBoxed: Boolean;
-                function GetContent: TDataValue;
+                function GetContent: TDataValue; inline;
             end;
 
     private
@@ -485,6 +485,13 @@ begin
     end;
 end;
 
+function TExecutionScope.TScopeItem.GetContent: TDataValue;
+begin
+    Result := Value;
+    if IsBoxed then
+        Result := Result.AsIntf<IValueCell>.Value;
+end;
+
 { TScopeDescriptor }
 
 constructor TScopeDescriptor.Create(const AParent: IScopeDescriptor);
@@ -657,11 +664,4 @@ begin
     Result := TExecutionScope.Create(Parent, Descriptor, CapturedUpvalues);
 end;
 
-function TExecutionScope.TScopeItem.GetContent: TDataValue;
-begin
-    Result := Value;
-    if IsBoxed then
-        Result := Result.AsIntf<IValueCell>.Value;
-end;
-
 end.