anchor.diff:      /// Get a map of the counts of the field definitions names.
       let getFieldDefinitionNameCounts fieldDefinitions =
           Map.fold
  -            (fun map _ definitions ->
  +            (fun map (_ : string) definitions ->
                   List.fold
                       (fun map definition ->
                           let definitionName = definition.FieldName
  
positive.code:             | _ -> ()
  
      /// Attach source's fields to a target.
      let attachFields source (target : obj) =
          let sourceType = source.GetType ()
          let fieldDefinitions = getFieldDefinitions sourceType
          attachFieldsViaDefinitions fieldDefinitions target
  
      /// Detach source's fields to a target.
      let detachFields source (target : obj) =
          let sourceType = source.GetType ()
          let fieldNames = getFieldDefinitionNames sourceType
          detachFieldsViaNames fieldNames target
  
negative.code:         | None -> ()
  
      /// Attempt to read a target's .NET property from field descriptors.
      let tryReadPropertyToTarget fieldDescriptors (property : PropertyInfo) (target : obj) =
          match Map.tryFind property.Name fieldDescriptors with
          | Some (fieldSymbol : Symbol) ->
              let converter = SymbolicConverter property.PropertyType
              if converter.CanConvertFrom typeof<Symbol> then
                  let fieldValue = converter.ConvertFrom fieldSymbol
  