anchor.diff:  
       abstract member RegisterCorrelated : bool -> 'c -> Guid -> 'w Ecs -> int
       default this.RegisterCorrelated stable comp entityId _ =
  +        if components.Length < freeList.Count * 2 then this.Compact ()
           match Dictionary.tryGetValue entityId correlations with
           | (false, _) ->
               if stable || freeList.Count = 0 then
  
positive.code:         components.Array.CopyTo (arr, 0)
          components.Array <- arr
  
      member this.GetEntitiesCorrelated () =
          correlations.Keys :> _ IEnumerable
  
  
negative.code:             junctions
  
      override this.RegisterCorrelated stable comp entityId ecs =
          if this.Components.Length < this.FreeList.Count * 2 then this.Compact ()
          match Dictionary.tryGetValue entityId this.Correlations with
          | (false, _) ->
              let junctions = this.GetJunctions ecs
  