scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

trivia: formatting of error responses

This commit is contained in:
vibr 2005-04-13 20:46:40 +00:00
parent 40d7c923a2
commit 97f730075d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/httpd/response.scm
View File

@ -177,7 +177,7 @@
(close-html (lambda (port args) (close-html (lambda (port args)
(if (not (null? args)) (if (not (null? args))
(format port "<br/>~%Further Information:~%")) (format port "<br/>~%Further Information:~%"))
(for-each (lambda (x) (format port "<br/>~%~s~%" x)) args) (for-each (lambda (x) (format port "<br/>~%~A~%" x)) args)
(format port "</p>~%</body>~%</html>~%"))) (format port "</p>~%</body>~%</html>~%")))
(create-response (create-response