From: fred <fred>
Date: Wed, 27 Mar 2002 00:34:56 +0000 (+0000)
Subject: lilypond-1.3.119
X-Git-Tag: release/1.5.59~1024
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=2eb179fab512ad7ad7aeb0b71df9b1c62d49f34a;p=lilypond.git

lilypond-1.3.119
---

diff --git a/lily/score.cc b/lily/score.cc
index 9e774cd6c5..417c3b3a44 100644
--- a/lily/score.cc
+++ b/lily/score.cc
@@ -39,16 +39,23 @@ Score::Score (Score const &s)
   : Input (s)
 {
   music_ = SCM_EOL;
-
+  header_p_ = 0;
   smobify_self ();
   
   Music * m =unsmob_music (s.music_);
   music_ =  m?m->clone()->self_scm () : SCM_EOL;
+  scm_unprotect_object (music_);
   
   for (int i=0; i < s.def_p_arr_.size (); i++)
     def_p_arr_.push(s.def_p_arr_[i]->clone());
   errorlevel_i_ = s.errorlevel_i_;
-  header_p_ =  (s.header_p_) ? new Scheme_hash_table (*s.header_p_): 0;
+  if (s.header_p_)
+ 	{
+	  header_p_ =  (s.header_p_) ? new Scheme_hash_table (*s.header_p_): 0;
+
+	  scm_unprotect_object(header_p_->self_scm ());
+	}
+ 
 }
 
 Score::~Score()