X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fscore.cc;h=945b7c75e0b694df981d0759324f60c82b190dcf;hb=b7b68363b15a8f723b55338b613de077ce5e1bdd;hp=b758fde169abea3cd2f27eed67e3493a84b3a16c;hpb=c0ba46b982f0bb0544c5267b5176c17d8d9d1447;p=lilypond.git

diff --git a/lily/score.cc b/lily/score.cc
index b758fde169..945b7c75e0 100644
--- a/lily/score.cc
+++ b/lily/score.cc
@@ -80,7 +80,7 @@ Score::Score (Score const &s)
 
   smobify_self ();
 
-  Music *m =unsmob_music (s.music_);
+  Music *m = unsmob_music (s.music_);
   music_ = m ? m->clone ()->self_scm () : SCM_EOL;
   scm_gc_unprotect_object (music_);
   
@@ -252,6 +252,7 @@ Score::book_rendering (String outname,
 
   Object_key * key = new Lilypond_general_key (book_key, user_key_, 0);
   SCM scm_key = key->self_scm();
+  scm_gc_unprotect_object (scm_key);
   
   for (int i = 0; !i || i < outdef_count; i++)
     {
@@ -335,7 +336,7 @@ void
 Score::set_music (SCM music, SCM parser)
 {
   /* URG? */
-  SCM check_funcs = ly_scheme_function ("toplevel-music-functions");
+  SCM check_funcs = ly_lily_module_constant ("toplevel-music-functions");
   for (; scm_is_pair (check_funcs); check_funcs = scm_cdr (check_funcs))
     music = scm_call_2 (scm_car (check_funcs), music, parser);