anchor.diff:          /// is not marked as outOfDate.
           /// Note that this function takes care of appropriate locking
           /// </summary>
  -        member inline x.EvaluateAlways (caller : IAdaptiveObject) (f : unit -> 'a) =
  +        member x.EvaluateAlways (caller : IAdaptiveObject) (f : unit -> 'a) =
               x.evaluate caller None f
   
           abstract member Mark : unit -> bool
  
positive.code:     static let emptyArray : IAdaptiveObject[] = Array.empty
      let mutable outputs = emptyArray
  
      // each thread may have its own running transaction
      static let running = new TrackAllThreadLocal<Option<Transaction>>(fun () -> None)
      
  
negative.code:         /// the given default value is returned.
          /// Note that this function takes care of appropriate locking
          /// </summary>
          member x.EvaluateIfNeeded (caller : IAdaptiveObject) (otherwise : 'a) (f : unit -> 'a) =
              x.evaluate caller (Some otherwise) f
  
          /// <summary>
  