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 7e1757123feee07d4e056e070ac3ec727863ed66..a2bc74c27a0337366b7fad070fc6cafa67efb231 100644 (file)
--- 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