fixing call to call-with-temp-file for HEAD requests

This commit is contained in:
Alex Shinn 2018-11-06 15:09:18 +08:00
parent 59e5584ab2
commit 3f9dfb7837

View file

@ -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)