From f4536ff167e0f4948040206fe6c1585cacc82e94 Mon Sep 17 00:00:00 2001
From: Mark Polesky <markpolesky@yahoo.com>
Date: Wed, 21 Aug 2013 11:25:58 -0700
Subject: [PATCH] Issue 3491: Add \displayScheme command.

---
 ly/music-functions-init.ly | 7 +++++++
 1 file changed, 7 insertions(+)

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 =
-- 
2.39.2