From 549594bef46a60e0b90f9452e1ec2c831a2789e7 Mon Sep 17 00:00:00 2001
From: vibr <vibr>
Date: Sat, 14 Aug 2004 22:05:06 +0000
Subject: [PATCH] with-tag* outputs no newlines

---
 scheme/lib/htmlout.scm | 2 --
 1 file changed, 2 deletions(-)

diff --git a/scheme/lib/htmlout.scm b/scheme/lib/htmlout.scm
index 90e4576..8b91257 100644
--- 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)))))