From: David Kastrup <dak@gnu.org>
Date: Tue, 6 Dec 2011 10:13:55 +0000 (+0100)
Subject: Fix an obscure  problem with #{ ... #xxx) #} where ) gets read twice
X-Git-Tag: release/2.15.22-1~36^2~4
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=208f17c5f239887caf59d6fc3f054791c2171d18;hp=1c0d6ecc99b45387a4e34fdda37c4c65ce6677ef;p=lilypond.git

Fix an obscure  problem with #{ ... #xxx) #} where ) gets read twice
---

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