Issue 3491: Add \displayScheme command.

diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly
index 8af797115f6a730b08e4ee153c71ac939f031591..7e9feba98f5728c22114289b6fb4cac70e9c94f7 100644 (file)
--- a/ly/music-functions-init.ly
+++ b/ly/music-functions-init.ly
@@ -342,6 +342,13 @@ displayMusic =
    (display-scheme-music music)
    music)
 
+displayScheme =
+#(define-scheme-function (parser location expr) (scheme?)
+   (_i "Display the internal representation of @var{expr} to the console.")
+   (newline)
+   (display-scheme-music expr)
+   expr)
+
 
 
 endSpanners =