From 3f9dfb783732dce59c70104ef83c1fe4420bca15 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Tue, 6 Nov 2018 15:09:18 +0800 Subject: [PATCH] fixing call to call-with-temp-file for HEAD requests --- lib/chibi/net/http-server.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/chibi/net/http-server.scm b/lib/chibi/net/http-server.scm index 0a93ea99..188b4280 100644 --- a/lib/chibi/net/http-server.scm +++ b/lib/chibi/net/http-server.scm @@ -336,7 +336,7 @@ (case (request-method request) ((HEAD) (call-with-temp-file "get.out" - (lambda (temp-file out) + (lambda (temp-file out preserve) (let ((request2 (copy-request request))) (request-method-set! request2 'GET) (request-out-set! request2 out)