From: Mark Polesky <markpolesky@yahoo.com>
Date: Wed, 21 Aug 2013 18:25:58 +0000 (-0700)
Subject: Issue 3491: Add \displayScheme command.
X-Git-Tag: release/2.17.25-1~11
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=f4536ff167e0f4948040206fe6c1585cacc82e94;p=lilypond.git

Issue 3491: Add \displayScheme command.
---

diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly
index 8af797115f..7e9feba98f 100644
--- 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 =