From 08cfa4c826e8bdc741e893a293dfb384a42c267d Mon Sep 17 00:00:00 2001 From: Reinhold Kainhofer 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.2