From 465157d1c9a69b6ff5a0cbdfb7c03dbdd8284a9a Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Sat, 21 Jan 2012 11:34:37 -0800 Subject: [PATCH] Avoid printing trailing whitespace. --- src/runtime/stack-sample.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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) -- 2.25.1