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

with-tag* outputs no newlines

This commit is contained in:
vibr 2004-08-14 22:05:06 +00:00
parent ef48e4e5ae
commit 549594bef4
1 changed files with 0 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

@ -148,10 +148,8 @@
(define (with-tag* out tag thunk . attrs) (define (with-tag* out tag thunk . attrs)
(apply emit-tag out tag attrs) (apply emit-tag out tag attrs)
(let ((out (fmt->port out))) (let ((out (fmt->port out)))
(newline 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)))))