anchor.diff:                      | (false, _) -> this.Correlations.Add (entityId, List [systemName])
               | _ -> failwith ("Could not find expected system '" + systemName + "'.")
   
  -/// A collection of subsystems that can be run in parallel.
  -/// NOTE: Because 'w is not a monoid (no mappend), null is passed in to all subsystems instead.
  -type 'w SystemParallel () =
  +/// A collection of systems that can be run in parallel.
  +/// Because 'w is not a monoid (no mappend), null is passed in to all subsystems. Any information that affects the
  +/// world has to use a piped value and the related process lambda.
  +type 'w SystemParallel (processUpdateResults, processPostUpdateResults, processActualizeResults) =
       inherit System<'w> ()
   
       let subsystems =
           dictPlus [] : Dictionary<string, 'w System>
   
  -    let processParallel fn =
  -        subsystems |>
  -        Seq.map (fun entry -> Task.Run (fun () -> fn entry.Value Unchecked.defaultof<'w> : 'w) |> Vsync.AwaitTask) |>
  -        Vsync.Parallel
  -
       member this.RegisterSubsystem subsystemName subsystem =
           subsystems.[subsystemName] <- subsystem
   
  
positive.code:         subsystems.Remove subsystemName
  
      override this.ProcessUpdate ecs world =
          let _ = Vsync.RunSynchronously (processParallel (fun system -> system.ProcessUpdate ecs))
          world
  
      override this.ProcessPostUpdate ecs world =
          let _ = Vsync.RunSynchronously (processParallel (fun system -> system.ProcessPostUpdate ecs))
          world
  
      override this.ProcessActualize ecs world =
          let _ = Vsync.RunSynchronously (processParallel (fun system -> system.ProcessActualize ecs))
          world
  
      type 'w Ecs with
  
  
negative.code: type [<AbstractClass>] 'w System () =
      let pipedKey = Gen.id
      member this.PipedKey with get () = pipedKey
      abstract PipedInit : obj
      default this.PipedInit with get () = () :> obj
      abstract ProcessUpdate : 'w Ecs -> 'w -> 'w
      default this.ProcessUpdate _ world = world
      abstract ProcessPostUpdate : 'w Ecs -> 'w -> 'w
  