anchor.diff:  
   
           member x.Add(rj : RenderJob) =
  -            let n = RenderJobFragment(deps, memory, manager, rj)
  +            let n = RenderJobFragment(idCache, deps, memory, manager, rj)
               fragments.Add(rj, n)
               BucketAVL.insertNeighbourhood sortedFragments n (fun prev next ->
                   let prev = defaultArg prev prolog
  
positive.code:                   elif x.Tag.IsValid then 
                        x.Recompile(v.Tag, x.Tag)
  
  
      [<AllowNullLiteral>]
      type private CompleteRenderJobFragment(parent : DependencySet, memory : MemoryManager, manager : ResourceManager, rj : RenderJob) =
          inherit Fragment<RenderJob>(memory, 0, rj)
  
          let stats = EventSource<FrameStatistics>(FrameStatistics.Zero)
  
negative.code:             
          member x.Add (r : RenderJob) =
              let sorted = sorter.ToSortedRenderJob order r
              let f = CompleteRenderJobFragment(idCache, deps, memory, manager, sorted)
              fragments.Add(r, f)
              sorter.Add r
              stats.Add f.Statistics
  