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

make server generated html pages XHTML 1.0 Strict: 

element names -> lower case
This commit is contained in:
vibr 2004-08-13 15:26:50 +00:00
parent 4d7f10960c
commit a9ae5061d0
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
scheme/httpd/seval.scm
View File

@ -57,12 +57,12 @@
(lambda (iport oport options) (lambda (iport oport options)
(let ((sexp (read-request-sexp req iport))) (let ((sexp (read-request-sexp req iport)))
(http-syslog (syslog-level debug) "read sexp: ~a" sexp) (http-syslog (syslog-level debug) "read sexp: ~a" sexp)
(with-tag oport HEAD () (with-tag oport head ()
(newline oport) (newline oport)
(emit-title oport "Scheme program output")) (emit-title oport "Scheme program output"))
(newline oport) (newline oport)
(with-tag oport BODY () (with-tag oport body ()
(newline oport) (newline oport)
(do/timeout (do/timeout
10 10
@ -70,7 +70,7 @@
;; Do the computation. ;; Do the computation.
(begin (emit-header oport 2 "Output from execution") (begin (emit-header oport 2 "Output from execution")
(newline oport) (newline oport)
(with-tag oport PRE () (with-tag oport pre ()
(newline oport) (newline oport)
(force-output oport); In case we're gunned down. (force-output oport); In case we're gunned down.
(with-current-output-port oport (with-current-output-port oport
@ -78,7 +78,7 @@
;; Pretty-print the returned value(s). ;; Pretty-print the returned value(s).
(emit-header oport 2 "Return value(s)") (emit-header oport 2 "Return value(s)")
(with-tag oport PRE () (with-tag oport pre ()
(for-each (lambda (val) (p val oport)) (for-each (lambda (val) (p val oport))
vals)))))))))) vals))))))))))