with-tag* outputs no newlines

2004-08-14 22:05:06 +00:00 · 2004-08-14 22:05:06 +00:00 · 549594bef4
parent ef48e4e5ae
commit 549594bef4
1 changed files with 0 additions and 2 deletions
--- a/scheme/lib/htmlout.scm
+++ b/scheme/lib/htmlout.scm
@ -148,10 +148,8 @@
 (define (with-tag* out tag thunk . attrs)
  (apply emit-tag out tag attrs)
  (let ((out (fmt->port out)))
-    (newline out)
    (call-with-values thunk
 		      (lambda results
-			(newline out)
 			(emit-close-tag out tag)
 			(apply values results)))))