lily/score-scheme.cc

   1 /*
   2   score-scheme.cc --  implement
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
   7
   8 */
   9
  10
  11 #include "score.hh"
  12 #include "music.hh"
  13
  14 LY_DEFINE (ly_music_scorify, "ly:music-scorify",
  15            2, 0, 0,
  16            (SCM music, SCM parser),
  17            "Return MUSIC encapsulated in SCORE.")
  18 {
  19 #if 0
  20   SCM_ASSERT_TYPE (ly_c_music_p (music), music, SCM_ARG1, __FUNCTION__, "music");
  21 #endif
  22   Score *score = new Score;
  23
  24   score->set_music (music, parser);
  25
  26   scm_gc_unprotect_object (score->self_scm ());
  27   return score->self_scm ();
  28 }