From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Sun, 1 Oct 2017 17:24:42 +0000 (-0700)
Subject: devops: Prefix status report sections with a blank line.
X-Git-Tag: mit-scheme-pucked-9.2.12~46
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=11dce96277162677cb2c2d2d120f1aa29a0998d6;p=mit-scheme.git

devops: Prefix status report sections with a blank line.
---

diff --git a/src/devops/devops.scm b/src/devops/devops.scm
index a3b926e20..e61b8855a 100644
--- a/src/devops/devops.scm
+++ b/src/devops/devops.scm
@@ -38,7 +38,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
 	 (lint (core-lint version (or (core-changes) '()) dirt)))
     (if (not (null? lint))
 	(begin
-	  (log "# "(project-name)" "(version-string version)":\n")
+	  (log "\n# "(project-name)" "(version-string version)"\n")
 	  (write-lint lint)))))
 
 (define (plugin-status plugin dirt)
@@ -47,7 +47,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
 	 (lint (plugin-lint plugin version changes dirt)))
     (if (not (null? lint))
 	(begin
-	  (log "# "(plugin-name plugin)" "(version-string version)":\n")
+	  (log "\n# "(plugin-name plugin)" "(version-string version)"\n")
 	  (write-lint lint)))))
 
 (define (write-lint lint)