From 08cfa4c826e8bdc741e893a293dfb384a42c267d Mon Sep 17 00:00:00 2001
From: Reinhold Kainhofer <reinhold@kainhofer.com>
Date: Tue, 18 Aug 2009 19:39:27 +0200
Subject: [PATCH] clear list of toplevel scores after adding them to the
implicitly created book
---
ly/init.ly | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/ly/init.ly b/ly/init.ly
index d1923659f9..88b152a9a1 100644
--- a/ly/init.ly
+++ b/ly/init.ly
@@ -54,8 +54,10 @@
(set! toplevel-scores (list))
(book-handler parser book)))
((or (pair? toplevel-scores) output-empty-score-list)
- (book-handler parser (apply ly:make-book $defaultpaper
- $defaultheader toplevel-scores)))))
+ (let ((book (apply ly:make-book $defaultpaper
+ $defaultheader toplevel-scores)))
+ (set! toplevel-scores (list))
+ (book-handler parser book)))))
#(if (eq? expect-error (ly:parser-has-error? parser))
(ly:parser-clear-error parser)
--
2.39.5