19 lines
455 B
Scheme
19 lines
455 B
Scheme
|
(define-record-type :http-response
|
||
|
|
(make-response code message seconds mime extras body)
|
||
|
|
response?
|
||
|
|
(code response-code)
|
||
|
|
(message response-message)
|
||
|
|
(seconds response-seconds)
|
||
|
|
(mime response-mime)
|
||
|
|
(extras response-extras)
|
||
|
|
(body response-body))
|
||
|
|
|
||
|
|
(define-record-type :http-writer-body
|
||
|
|
(make-writer-body proc)
|
||
|
|
writer-body?
|
||
|
|
(proc writer-body-proc))
|
||
|
|
|
||
|
|
(define (display-http-body body port options)
|
||
|
|
((writer-body-proc body) port options))
|
||
|
|
|