(http-respone-code <http-response>) -> integer
Given a <http-response>, return the HTTP code defined.
>> (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-code http-resp) :: 200