anchor.diff:                  query.RegisterArchetype archetype
           archetype
   
  -    member private this.SubscriptionId =
  +    member private this.AllocSubscriptionId () =
           subscriptionIdCurrent <- inc subscriptionIdCurrent
           if subscriptionIdCurrent = UInt32.MaxValue then failwith "Unbounded use of ECS subscription ids not supported."
           subscriptionIdCurrent
  
positive.code: open System.Runtime.InteropServices
  open System.Threading.Tasks
  open Prime
  
  /// Allows a value to always pass as equal with another of its same type.
  type [<CustomEquality; NoComparison; Struct>] 'a AlwaysEqual =
  
negative.code:         else freeList.Add index |> ignore<bool>
  
      member this.Register (comps : Dictionary<string, obj>) =
          let index = this.AllocIndex ()
          for compEntry in comps do
              stores.[compEntry.Key].SetItem index compEntry.Value
          index
  