From aada57a374fd22022d8d92dc13d19bf15f0a2a1e Mon Sep 17 00:00:00 2001 From: hellerve Date: Mon, 22 Feb 2016 10:35:29 +0100 Subject: [PATCH] cleanup: close socket --- request.zp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/request.zp b/request.zp index 389526e..bafb18b 100644 --- a/request.zp +++ b/request.zp @@ -64,7 +64,9 @@ (let loop ((recvd (net:recv sock BSIZE)) (bytes b{})) (if (or (falsy? (length recvd)) (string:ends-with (byte-vector->string recvd) "\r\n")) - (parse-request (byte-vector->string (++ bytes recvd)) scheme path req-headers) + (begin + (net:close-socket sock) + (parse-request (byte-vector->string (++ bytes recvd)) scheme path req-headers)) (loop (net:recv sock BSIZE) (++ bytes recvd)))))))) (get (lambda (path . headers)