anchor.diff:  
       abstract Disjunction : Dictionary<string, 'w System> -> Guid -> 'w Ecs -> unit
   
  -    override this.RegisterEntity entityId _ ecs =
  +    override this.RegisterEntity entityId compOpt ecs =
  +        if Option.isSome compOpt then
  +            Log.debug "Component value provided to SystemJunctioned.RegisterEntity is (and will always be) ignored."
           match Dictionary.tryGetValue entityId this.Correlations with
           | (false, _) ->
               let junctions = this.GetJunctions ecs
  
positive.code:     member this.GetEntities () =
          correlations.Keys :> _ IEnumerable
  
      abstract member RegisterEntity : Guid -> 't -> 'w Ecs -> int
      default this.RegisterEntity entityId comp _ =
          match Dictionary.tryGetValue entityId correlations with
          | (false, _) ->
              if freeList.Count = 0 then
                  if freeIndex < components.Length - 1 then
                      components.[freeIndex] <- comp
  
negative.code:     member this.JunctionEntityExplicit<'t, 'w when 't : struct and 't :> Component>
          (systemName : string) (junctions : Dictionary<string, 'w System>) (entityId : Guid) =
          let system = junctions.[systemName] :?> SystemCorrelated<'t, 'w>
          let index = system.RegisterEntity entityId None this
          ComponentRef.make index system.Components
  
      member this.JunctionEntity<'t, 'w when 't : struct and 't :> Component>
  