replace SCM_ASSERT_TYPE with LY_ASSERT_TYPE and friends

[lilypond.git] / lily / paper-score-scheme.cc

diff --git a/lily/paper-score-scheme.cc b/lily/paper-score-scheme.cc
index 0c6a16c21c60de057d1da33f1760aa2860c7b08a..a19a1e39f710aee6437fde2e0a0b9b06fcf9f9d0 100644 (file)
--- a/lily/paper-score-scheme.cc
+++ b/lily/paper-score-scheme.cc
@@ -13,8 +13,8 @@ LY_DEFINE (ly_paper_score_paper_systems, "ly:paper-score-paper-systems",
           (SCM paper_score),
           "Return vector of paper_system objects from @var{paper-score}.")
 {
-  Paper_score *pscore = dynamic_cast<Paper_score *> (unsmob_music_output (paper_score));
-  SCM_ASSERT_TYPE (pscore, paper_score, SCM_ARG1, __FUNCTION__, "Paper score (Music output)");
+  LY_ASSERT_FIRST_TYPE (unsmob_paper_score, paper_score);
 
+  Paper_score *pscore = dynamic_cast<Paper_score *> (unsmob_music_output (paper_score));
   return pscore->get_paper_systems ();
 }