From 208f17c5f239887caf59d6fc3f054791c2171d18 Mon Sep 17 00:00:00 2001
From: David Kastrup <dak@gnu.org>
Date: Tue, 6 Dec 2011 11:13:55 +0100
Subject: [PATCH] Fix an obscure  problem with #{ ... #xxx) #} where ) gets
 read twice

---
 scm/parser-ly-from-scheme.scm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/scm/parser-ly-from-scheme.scm b/scm/parser-ly-from-scheme.scm
index 7e1757123f..a2bc74c27a 100644
--- a/scm/parser-ly-from-scheme.scm
+++ b/scm/parser-ly-from-scheme.scm
@@ -43,6 +43,9 @@ from @var{port} and return the corresponding Scheme music expression.
 			     (if (or (char=? c #\#) (char=? c #\$))
 				 (let* ((p (ftell out))
 					(expr (read copycat)))
+				   ;; kill unused lookahead, it has been
+				   ;; written out already
+				   (drain-input copycat)
 				   ;; only put symbols and non-quote
 				   ;; lists into closures -- constants
 				   ;; don't need lexical environments
-- 
2.39.2