anchor.diff:                  match infoOfXamlElement filename xaml with
                   | Some (XamlElementInfo(data, typeName)) ->
                       let has_children = not xaml.IsEmptyElement
  -                    { NodeType = typeOfXamlElement typeName ;
  -                      Data = data ;
  -                      Children =
  -                        (if has_children then
  -                            readNewElement []
  -                         else
  -                            []) }
  -                    :: siblings
  -                    |> readNewElement
  +                    match data with
  +                    | Named _ ->
  +                        { NodeType = typeOfXamlElement typeName ;
  +                          Data = data ;
  +                          Children =
  +                            (if has_children then
  +                                readNewElement []
  +                             else
  +                                []) }
  +                        :: siblings
  +                        |> readNewElement
  +                    | Unnamed _ ->
  +                        readNewElement siblings
  +                        |> readNewElement
                   | None -> failwithf "Error near %A" (posOfReader filename xaml)
               | XmlNodeType.EndElement ->
                   siblings
  
positive.code:         createXmlReader(reader) 
          |> readXamlFile xamlInfo.FileName
  
      eraseType thisAssembly rootNamespace typeName root.NodeType
          |> addDefinitionLocation root.Data.Position
          |+> (provideConstructor
  
negative.code:     member this.Position =
          match this with
          | Named(pos, _) | Unnamed(pos) -> pos
      member this.Name =
          match this with
          | Named(_, name) -> Some name
          | Unnamed _ -> None
  
  type XamlElementInfo =
  | XamlElementInfo of XamlId * string
  