Issue 4377: Run a script for using derived_unsmob where obvious

[lilypond.git] / lily / system.cc

diff --git a/lily/system.cc b/lily/system.cc
index 61779473c3573612599f600a3b6559e7db4c2fbf..4f98412745ac87b10803b501266c6fc112075075 100644 (file)
--- a/lily/system.cc
+++ b/lily/system.cc
@@ -949,7 +949,7 @@ MAKE_SCHEME_CALLBACK (System, calc_pure_height, 3);
 SCM
 System::calc_pure_height (SCM smob, SCM start_scm, SCM end_scm)
 {
-  System *me = dynamic_cast<System *> (Grob::unsmob (smob));
+  System *me = derived_unsmob<System> (smob);
   int start = scm_to_int (start_scm);
   int end = scm_to_int (end_scm);
 
@@ -993,7 +993,7 @@ enum
 static SCM
 get_maybe_spaceable_staves (SCM smob, int filter)
 {
-  System *me = dynamic_cast<System *> (Grob::unsmob (smob));
+  System *me = derived_unsmob<System> (smob);
   Grob *align = Grob::unsmob (me->get_object ("vertical_alignment"));
   SCM ret = SCM_EOL;