Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 13:49:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

servlets should assume html if no Content-Type is specified

Browse source
This commit is contained in:
Alex Shinn 2021-05-28 12:07:23 +09:00
parent 0388d9880c
commit 5610653c20
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/chibi/net/servlet.scm
View file

@ -158,6 +158,10 @@
(request-status-set! request status) (request-status-set! request status)
(let* ((out (request-out request)) (let* ((out (request-out request))
(headers (if (pair? o) (car o) '())) (headers (if (pair? o) (car o) '()))
(headers (if (assq 'Content-Type headers)
headers
`((Content-Type . "text/html; charset=UTF-8")
,@headers)))
(headers (headers
(cond (cond
;; Socket bound, not CGI, send normal status. ;; Socket bound, not CGI, send normal status.