Navlost <racket at navlost dot eu>
This package implements functions for constructing XMPP error stanzas.
procedure
( service-unavailable...)→(xexpr/c )
> (service-unavailable'(text((xmln"urn:ietf:params:xml:ns:xmpp-stanzas")(xml:lang"en"))"I did not understand your request"))'(error
((type "cancel"))
(service-unavailable ((xmlns "urn:ietf:params:xml:ns:xmpp-stanzas")))
(text
((xmln "urn:ietf:params:xml:ns:xmpp-stanzas") (xml:lang "en"))
"I did not understand your request"))