anchor.diff:                  let facets = entity.GetFacetsNp world
                   let world = dispatcher.PostUpdate (entity, world)
                   let world = List.foldBack (fun (facet : Facet) world -> facet.PostUpdate (entity, world)) facets world
  -                if entity.GetPublishPostUpdatesNp world then
  +                if World.getEntityPublishUpdatesNp entity world then
                       let eventTrace = EventTrace.record "World" "postUpdateEntity" EventTrace.empty
                       World.publishPlus World.sortSubscriptionsByHierarchy () entity.PostUpdateAddress eventTrace Simulants.Game false world
                   else world)
  
positive.code:                 let facets = entity.GetFacetsNp world
                  let world = dispatcher.Update (entity, world)
                  let world = List.foldBack (fun (facet : Facet) world -> facet.Update (entity, world)) facets world
                  if entity.GetPublishUpdatesNp world then
                      let eventTrace = EventTrace.record "World" "updateEntity" EventTrace.empty
                      World.publishPlus World.sortSubscriptionsByHierarchy () entity.UpdateAddress eventTrace Simulants.Game false world
                  else world)
  
negative.code:         member this.GetPublishChanges world = World.getEntityPublishChanges this world
          member this.SetPublishChanges value world = World.setEntityPublishChanges value this world
          member this.PublishChanges = PropertyTag.make this Property? PublishChanges this.GetPublishChanges this.SetPublishChanges
          member this.GetFacetNames world = World.getEntityFacetNames this world
          member this.FacetNames = PropertyTag.makeReadOnly this Property? FacetNames this.GetFacetNames
          member this.GetFacetsNp world = World.getEntityFacetsNp this world
  