anchor.diff:      let documentIndex =
           let includeSource file =
               let isInList =
  -                if embedSourceList |> List.length = 0 then false
  +                if embedSourceList.Length = 0 then false
                   else
  -                    match embedSourceList |> List.tryFind(fun f -> String.Compare(file, f, StringComparison.OrdinalIgnoreCase ) = 0) with
  -                    | Some _ -> true
  -                    | None   -> false
  +                    embedSourceList |> List.tryFind(fun f -> String.Compare(file, f, StringComparison.OrdinalIgnoreCase ) = 0) |> Option.isSome
   
               if not embedAllSource && not isInList || not (File.Exists(file)) then
                   None
  
positive.code:             let handle =
                  match checkSum doc.File with
                  | Some (hashAlg, checkSum) ->
                      let h = 
                          (serializeDocumentName doc.File,
                           metadata.GetOrAddGuid(hashAlg),
                           metadata.GetOrAddBlob(checkSum.ToImmutableArray()),
  
negative.code:                     match includeSource doc.File with
                      | None -> ()
                      | Some blob ->
                          metadata.AddCustomDebugInformation(DocumentHandle.op_Implicit(dbgInfo),
                                                             metadata.GetOrAddGuid(embeddedSource),
                                                             metadata.GetOrAddBlob(blob)) |> ignore
                      dbgInfo
                  | None ->
                      let dbgInfo = 
                          (serializeDocumentName doc.File,
                           metadata.GetOrAddGuid(System.Guid.Empty),
                           metadata.GetOrAddBlob(ImmutableArray<byte>.Empty),
                           metadata.GetOrAddGuid(corSymLanguageTypeFSharp)) |> metadata.AddDocument
                      dbgInfo
              index.Add(doc.File, handle)
          index
  
  