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

emit less newlines

This commit is contained in:
vibr 2004-08-15 12:40:06 +00:00
parent 35565068fb
commit 38f2594ba5
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/lib/htmlout.scm
View File

@ -92,7 +92,7 @@
;;; <title> Make Money Fast!!! </title> ;;; <title> Make Money Fast!!! </title>
(define (emit-title out title) ; Takes no attributes. (define (emit-title out title) ; Takes no attributes.
(format out "<title>~a~%</title>" title)) (format out "<title>~a</title>" title))
(define (emit-header out level text . attribs) (define (emit-header out level text . attribs)
(apply with-tag* out (string-append "h" (number->string level)) (apply with-tag* out (string-append "h" (number->string level))

1
scheme/packages.scm
View File

@ -789,6 +789,7 @@
parse-html-forms ; PARSE-HTML-FORM-QUERY parse-html-forms ; PARSE-HTML-FORM-QUERY
threads ; SLEEP threads ; SLEEP
sunet-utilities sunet-utilities
handle-fatal-error
) )
(files (httpd seval))) (files (httpd seval)))