Issue 4377: Run a script for using derived_unsmob where obvious

[lilypond.git] / lily / page-breaking.cc

diff --git a/lily/page-breaking.cc b/lily/page-breaking.cc
index 350a2c472dab46801ec1d9871792575339cee436..5a3e64623788854b5adf8ff674302e7bb3ccc613 100644 (file)
--- a/lily/page-breaking.cc
+++ b/lily/page-breaking.cc
@@ -689,7 +689,7 @@ Page_breaking::create_system_list ()
   SCM specs = book_->get_system_specs ();
   for (SCM s = specs; scm_is_pair (s); s = scm_cdr (s))
     {
-      if (Paper_score *ps = dynamic_cast<Paper_score *> (Music_output::unsmob (scm_car (s))))
+      if (Paper_score *ps = Paper_score::unsmob (scm_car (s)))
         {
           system_specs_.push_back (System_spec (ps));
         }