(http-respone-output <http-response>) -> <channel>
Given a <http-response>, return the HTTP output channel.
This is here for completeness' sake in case someone ever writes their own http-response handler. They may wish to use this accessor in the context of HTTP pipelining or continuations.
>> (define resp (make-channel)):: [channel 589AC0] >> (write-http-response resp 200 "Peachy" '("Content-Type: text/text") "Life is peachy") :: null >> (define http-resp (read-http-response resp)) :: [http-response [vector null 200 "Peachy" [dict ...] "Life is peachy" #f [primitive input]]] >> (http-response-output http-resp) :: [primitive channel]