Http-Response-Code

(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