cbaines/guile-knots
1
Fork 0
Code Issues Pull requests Activity Actions

Use the buffer size for chunked output ports
All checks were successful
/ test (push) Successful in 37s
Details

Browse source
This commit is contained in:
Christopher Baines 2025-06-29 08:35:28 +02:00
parent 0fa6737a39
commit deae518b52
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
knots/web-server.scm
View file

@ -333,7 +333,8 @@ on the procedure being called at any particular time."
(define (handle-request handler client (define (handle-request handler client
read-request-exception-handler read-request-exception-handler
write-response-exception-handler) write-response-exception-handler
buffer-size)
(let ((request (let ((request
(with-exception-handler (with-exception-handler
read-request-exception-handler read-request-exception-handler
@ -399,7 +400,8 @@ on the procedure being called at any particular time."
client client
(make-chunked-output-port/knots (make-chunked-output-port/knots
client client
#:keep-alive? #t)))) #:keep-alive? #t
#:buffering buffer-size))))
(set-port-encoding! body-port charset) (set-port-encoding! body-port charset)
(let ((body-written? (let ((body-written?
(with-exception-handler (with-exception-handler
@ -472,7 +474,8 @@ on the procedure being called at any particular time."
(else (else
(let ((keep-alive? (handle-request handler client (let ((keep-alive? (handle-request handler client
read-request-exception-handler read-request-exception-handler
write-response-exception-handler))) write-response-exception-handler
buffer-size)))
(if keep-alive? (if keep-alive?
(loop) (loop)
(close-port client))))))) (close-port client)))))))