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 250defcdd2f98bdaa09761b16a98eb1d62cd2802..e007e6412f87c01d44b217b798a590830a4feccc 100644 (file)
--- 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