anchor.diff:  
       member this.RemoveComponent index =
           if index <> freeIndex then
  -            components.[index].RefCount <- dec components.[index].RefCount
  +            components.[index].Occupied <- false
               freeList.Enqueue index
           else freeIndex <- dec freeIndex
   
  
positive.code:         match correlations.TryGetValue entityId with
          | (true, index) ->
              if index <> freeIndex then
                  components.[index].RefCount <- dec components.[index].RefCount
                  freeList.Enqueue index
              else freeIndex <- dec freeIndex
              true
  
negative.code:         match correlations.TryGetValue entityId with
          | (true, index) ->
              if index <> freeIndex then
                  components.[index].Occupied <- false
                  freeList.Enqueue index
              else freeIndex <- dec freeIndex
              true
  