From: Joe Marshall <eval.apply@gmail.com>
Date: Sat, 21 Jan 2012 19:34:37 +0000 (-0800)
Subject: Avoid printing trailing whitespace.
X-Git-Tag: release-9.2.0~334^2~3
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=465157d1c9a69b6ff5a0cbdfb7c03dbdd8284a9a;p=mit-scheme.git

Avoid printing trailing whitespace.
---

diff --git a/src/runtime/stack-sample.scm b/src/runtime/stack-sample.scm
index 1e467516d..c38fc1f52 100644
--- a/src/runtime/stack-sample.scm
+++ b/src/runtime/stack-sample.scm
@@ -366,7 +366,7 @@
        output-port)))
 
 (define (show-expression expression subexpression output-port)
-  (write-string " evaluating " output-port)
+  (write-string " evaluating" output-port)
   (cond ((invalid-expression-description expression)
          => (lambda (description)
               (write-string description output-port)
@@ -389,9 +389,9 @@
 (define (invalid-expression-description expression)
   (cond ((debugging-info/compiled-code? expression)
          ;++ Should this display the compiled entry itself?
-         "compiled code")
+         " compiled code")
         ((debugging-info/undefined-expression? expression)
-         "undefined expression")
+         " undefined expression")
         (else #f)))
 
 (define (profile-pp expression output-port)