Elide some potentially harmful newlines.

scheme/lib/htmlout.scm

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