release: 1.5.29

[lilypond.git] / lily / score.cc

diff --git a/lily/score.cc b/lily/score.cc
index 0b6680ae95137a3df914a9af7b157acfb953279a..b31c673f813e8a46e04a7b449ca2093b838421b7 100644 (file)
--- a/lily/score.cc
+++ b/lily/score.cc
@@ -3,7 +3,7 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c)  1997--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  (c)  1997--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
 */
 
 #include "ly-smobs.icc"
@@ -51,7 +51,7 @@ Score::Score (Score const &s)
   /*
     TODO: this is not very elegant.... 
    */
-  store_locations_global_b = (scm_c_eval_string ("point-and-click") !=  SCM_BOOL_F);
+  store_locations_global_b = (gh_eval_str ("point-and-click") !=  SCM_BOOL_F);
 
   Music * m =unsmob_music (s.music_);
   music_ =  m?m->clone ()->self_scm () : SCM_EOL;
@@ -166,7 +166,7 @@ Score::add_output (Music_output_def *pap_p)
 
 IMPLEMENT_SMOBS (Score);
 IMPLEMENT_DEFAULT_EQUAL_P (Score);
-IMPLEMENT_UNSMOB (Score, score);
+
 
 SCM
 Score::mark_smob (SCM s)
@@ -181,7 +181,7 @@ Score::mark_smob (SCM s)
 }
 
 int
-Score::print_smob (SCM s, SCM p, scm_print_state*)
+Score::print_smob (SCM , SCM p, scm_print_state*)
 {
   scm_puts ("#<Score>", p);