anchor.diff:      |> W.ExpressionToString IntelliFactory.JavaScript.Preferences.Compact
   
   [<Sealed>]
  -type Bundle(resolver: AssemblyResolver, set: list<Assembly>) =
  +type Bundle(set: list<Assembly>) =
       let logger = Logger.Create ignore 1000
  +    let resolver =
  +        let r = AssemblyResolver.Create()
  +        set
  +        |> Seq.choose (fun a -> Option.map Path.GetDirectoryName a.FullLoadPath)
  +        |> Seq.distinct
  +        |> r.SearchDirectories
  +
       let loader = Loader.Create resolver ignore
   
       let context = lazy Context.Get(set)
   
       let deps =
           lazy
  +        resolver.Wrap <| fun () ->
           let context = context.Value
           let mInfo = M.Info.Create context.Infos
           mInfo.GetDependencies [for a in set -> getDependencyNodeForAssembly a]
  
positive.code:         let completeSet =
              Algorithms.TopSort.Do(set, pred, comparer)
              |> Seq.toList
          Bundle(resolver, completeSet)
  
      static member Empty =
          let resolver = AssemblyResolver.Create()
          Bundle(resolver, [])
  
      static member Create() =
          Bundle.Empty.WithDefaultReferences()
  
  type Options =
      {
  
negative.code:             elif ex ".mdb" then Some (Mdb (rd ".mdb"))
              else None
          let aR = aR.SearchPaths [path]
          let fP = Some (Path.GetFullPath path)
          try
              load fP bytes symbols aR
          with :? InvalidOperationException ->
              if symbolsPath.IsSome then
                  "Failed to load symbols: " + symbolsPath.Value
                  |> log
              load fP bytes None aR
  
  module CecilTools =
      open System.Text
  