From: Joe Marshall <eval.apply@gmail.com>
Date: Tue, 24 May 2011 17:12:35 +0000 (-0700)
Subject: Avoid leaving trailing whitespace on notifications.
X-Git-Tag: 20110609-Gtk~5^2~2
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=53643147e15ad944b568d0a1785e638f449b66a5;p=mit-scheme.git

Avoid leaving trailing whitespace on notifications.
---

diff --git a/src/runtime/usrint.scm b/src/runtime/usrint.scm
index 2b0a70233..3b59d9573 100644
--- a/src/runtime/usrint.scm
+++ b/src/runtime/usrint.scm
@@ -312,7 +312,7 @@ USA.
 	     (fresh-line port)
 	     (write-notification-prefix port)
 	     (message (wrap-notification-port port))
-	     (write-string "... " port)
+	     (write-string "..." port)
 	     (set! n (output-port/bytes-written port))
 	     unspecific))
 	 (lambda ()
@@ -330,9 +330,9 @@ USA.
 		 (begin
 		   (fresh-line port)
 		   (write-notification-prefix port)
-		   (write-string "... " port)))
+		   (write-string "..." port)))
 	     (set! n)
-	     (write-string (if done? "done" "aborted") port)
+	     (write-string (if done? " done" " aborted") port)
 	     (newline port)))))))
 
 (define (wrap-notification-port port)