anchor.diff:      member this.Name with get () = name
   
   /// Buffered array objects.
  -and [<NoEquality; NoComparison>] BufferedArrayObjs =
  -    { WritableArrayObjs : obj List
  -      mutable ReadOnlyArrayObjs : obj List }
  +and [<NoEquality; NoComparison>] ArrayObjsBuffered =
  +    { ArrayObjs : obj List
  +      mutable ArrayObjsBuffered : obj List }
   
   /// Array objects that may or may not be buffered.
   and [<NoEquality; NoComparison>] ArrayObjs =
  -    | UnbufferedArrayObjs of obj List
  -    | BufferedArrayObjs of BufferedArrayObjs
  +    | ArrayObjs of obj List
  +    | ArrayObjsBuffered of ArrayObjsBuffered
   
   /// Nu's custom Entity-Component-System implementation.
   /// Nu's conception of an ECS is primarily as an abstraction over user-definable storage formats.
  
positive.code:         match arrayObjss.TryGetValue componentName with
          | (true, arrayObjs) ->
              match arrayObjs with
              | UnbufferedArrayObjs _ -> ()
              | BufferedArrayObjs buffered ->
                  lock arrayObjs $ fun () ->
                      for i in 0 .. buffered.WritableArrayObjs.Count - 1 do
                          let writableAref = buffered.WritableArrayObjs.[i] :?> 'c ArrayRef
                          let readOnlyAref = buffered.ReadOnlyArrayObjs.[i] :?> 'c ArrayRef
                          lock readOnlyAref (fun () ->
                              if readOnlyAref.Array.Length = writableAref.Array.Length
                              then writableAref.Array.CopyTo (readOnlyAref.Array, 0)
                              else readOnlyAref.Array <- Array.copy writableAref.Array)
          | (false, _) -> ()
  
      member this.WithComponentArraysBuffered<'c when 'c : struct and 'c :> 'c Component> fn =
  
negative.code:                 result
              | None -> failwith ("Could not find expected system '" + systemName + "'.")
  
          member this.JunctionPlus<'c when 'c : struct and 'c :> 'c Component> (comp : 'c) (index : int) (componentsObj : obj) (componentsBufferedObj : obj) =
              let components = componentsObj :?> 'c ArrayRef
              let componentsBuffered = componentsBufferedObj :?> 'c ArrayRef
              comp.Active <- true
              components.[index] <- comp
              ComponentRef<'c>.make index components componentsBuffered
  
          member this.Junction<'c when 'c : struct and 'c :> 'c Component> index componentsObj componentsBufferedObj =
              this.JunctionPlus<'c> Unchecked.defaultof<'c> index componentsObj componentsBufferedObj
  
          member this.Disjunction<'c when 'c : struct and 'c :> 'c Component> (index : int) (componentsObj : obj) =
              let components = componentsObj :?> 'c ArrayRef
  