From: David Kastrup <dak@gnu.org>
Date: Fri, 16 Dec 2011 14:42:49 +0000 (+0100)
Subject: Don't let display-scheme-music return a value: it is disruptive in the REPL.
X-Git-Tag: release/2.15.23-1~17
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=e59c90a91ba93c55342dc9495e8c4c29076b9cea;p=lilypond.git

Don't let display-scheme-music return a value: it is disruptive in the REPL.
---

diff --git a/scm/music-functions.scm b/scm/music-functions.scm
index 250defcdd2..e007e6412f 100644
--- a/scm/music-functions.scm
+++ b/scm/music-functions.scm
@@ -206,13 +206,9 @@ equivalent to @var{obj}, that is, for a music expression, a
 (use-modules (ice-9 pretty-print))
 (define*-public (display-scheme-music obj #:optional (port (current-output-port)))
   "Displays `obj', typically a music expression, in a friendly fashion,
-which often can be read back in order to generate an equivalent expression.
-
-Returns `obj'.
-"
+which often can be read back in order to generate an equivalent expression."
   (pretty-print (music->make-music obj) port)
-  (newline)
-  obj)
+  (newline port))
 
 ;;;
 ;;; Scheme music expression --> Lily-syntax-using string translator