From e59c90a91ba93c55342dc9495e8c4c29076b9cea Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Fri, 16 Dec 2011 15:42:49 +0100 Subject: [PATCH] Don't let display-scheme-music return a value: it is disruptive in the REPL. --- scm/music-functions.scm | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) 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 -- 2.39.5