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

Elide some potentially harmful newlines.

This commit is contained in:
sperber 2002-08-26 09:33:36 +00:00
parent df1a40a361
commit d6f81777c8
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
scheme/lib/htmlout.scm
View File

@ -57,9 +57,7 @@
(cdr args))) (cdr args)))
(values (current-output-port) args)) (values (current-output-port) args))
(apply emit-tag out 'p attrs) (apply emit-tag out 'p attrs)))
(newline out)
(newline out)))
;;; <TITLE> Make Money Fast!!! </TITLE> ;;; <TITLE> Make Money Fast!!! </TITLE>
@ -121,7 +119,6 @@
(let ((out (fmt->port out))) (let ((out (fmt->port out)))
(call-with-values thunk (call-with-values thunk
(lambda results (lambda results
(newline out)
(emit-close-tag out tag) (emit-close-tag out tag)
(apply values results))))) (apply values results)))))