anchor.diff:          this.RegisterSystemGeneralized system :?> 's
   
   /// An Ecs system with just a single component.
  -type SystemSingleton<'c, 'w when 'c : struct and 'c :> 'c Component> (name, comp : 'c) =
  -    inherit System<'w> (name)
  +type SystemSingleton<'c, 'w when 'c : struct and 'c :> 'c Component> (comp : 'c) =
  +    inherit System<'w> (typeof<'c>.Name)
       let mutable comp = comp
  -    new (comp) = SystemSingleton (typeof<'c>.Name, comp)
       member this.Component with get () = &comp
       type Ecs<'w> with
           member this.IndexSingleton<'c, 'w when 'c : struct and 'c :> 'c Component> () =
  
positive.code:     let correlations = dictPlus<Guid, int> HashIdentity.Structural []
      let correlationsBack = dictPlus<int, Guid> HashIdentity.Structural []
  
      new (ecs) = SystemCorrelated (typeof<'c>.Name, false, ecs)
      new (buffered, ecs) = SystemCorrelated (typeof<'c>.Name, buffered, ecs)
  
      member this.Components with get () = components
      member this.WithComponentsBuffered (fn : 'c ArrayRef -> 'w option -> 'w option) worldOpt = lock componentsBuffered (fun () -> fn componentsBuffered worldOpt)
  
negative.code: 
      member this.AddNode (parentIdOpt : Guid option) =
          let nodeId = Gen.id
          let system = SystemCorrelated<'c, 'w> (buffered, ecs)
          let added =
              match parentIdOpt with
              | Some parentId ->
  