struct-member ( name value -- tag )


Vocabulary
xml-rpc

Inputs and outputs
namean object
valuean object
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 ;