 USING: kernel xml sequences assocs tools.test io arrays namespaces
-    xml.data xml.utilities xml.writer generic sequences.deep ;
+accessors xml.data xml.utilities xml.writer generic sequences.deep ;
 IN: xml.tests
 
 : sub-tag

    [
        H{
            { "foo" { "foo" } }
            { "bar" { "blah" T{ tag T{ name f "" "a" "" } V{ } f } } }
            { "baz" f }
        } ref-table set
        sample-doc string>xml dup template xml>string

M: tag (r-ref)
    sub-tag over at* [
        ref-table get at
        >>children drop
    ] [ 2drop ] if ;
M: object (r-ref) drop ;

