Vocabulary
xml-rpc

Inputs
fault-codean object
fault-stringan object


Outputs
xmlan object


Definition


: return-fault ( fault-code fault-string -- xml )
[ "faultString" ,, "faultCode" ,, ] H{ } make
item>xml 1 nenum T{ xml
{ prolog
T{ prolog { version "1.0" } { encoding "UTF-8" } }
}
{ before V{ } }
{ body
T{ tag
{ name
T{ name
{ space "" }
{ main "methodResponse" }
{ url "" }
}
}
{ children
V{ "\n " ~tag~ "\n " }
}
}
}
{ after V{ "" } }
} interpolate-xml ;