Vocabulary
xml-rpc

Inputs
namean object
valuean object


Outputs
tagan object


Definition


: struct-member ( name value -- tag )
over string?
[ "Struct member name must be string" throw ] unless
item>xml 2 nenum T{ xml-chunk
{ seq
V{
""
T{ tag { name ~name~ } { children ~vector~ } }
""
}
}
} interpolate-xml ;