From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sat, 6 Jan 2007 15:37:38 +0000 (+0100)
Subject: plug memory leak in book identifiers.
X-Git-Tag: release/2.11.10-1~69
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=5ac6e74e8eb0e7e08412d93556d5050f25e0b150;p=lilypond.git

plug memory leak in book identifiers.
---

diff --git a/lily/book.cc b/lily/book.cc
index 44f7ee4ef9..2bf7b58575 100644
--- a/lily/book.cc
+++ b/lily/book.cc
@@ -44,13 +44,17 @@ Book::Book (Book const &s)
   smobify_self ();
 
   if (s.paper_)
-    paper_ = s.paper_->clone ();
+    {
+      paper_ = s.paper_->clone ();
+      paper_->unprotect ();
+    }
   
   input_location_ = make_input (*s.origin ());
+
   header_ = ly_make_anonymous_module (false);
   if (ly_is_module (s.header_))
     ly_module_copy (header_, s.header_);
-
+  
   SCM *t = &scores_;
   for (SCM p = s.scores_; scm_is_pair (p); p = scm_cdr (p))
     {