Issue 4377: Run a script for using derived_unsmob where obvious

[lilypond.git] / lily / spacing-loose-columns.cc

diff --git a/lily/spacing-loose-columns.cc b/lily/spacing-loose-columns.cc
index 4ff82e6b75e56bd8f882e7b139507f9a728e0648..aad9dd0db7d089b36161838ebf2bb65bbe5dad0b 100644 (file)
--- a/lily/spacing-loose-columns.cc
+++ b/lily/spacing-loose-columns.cc
@@ -60,8 +60,8 @@ set_loose_columns (System *which, Column_x_positions const *posns)
           if (!loose->get_system ())
             break;
 
-          Paper_column *le = dynamic_cast<Paper_column *> (Grob::unsmob (scm_car (between)));
-          Paper_column *re = dynamic_cast<Paper_column *> (Grob::unsmob (scm_cdr (between)));
+          Paper_column *le = derived_unsmob<Paper_column> (scm_car (between));
+          Paper_column *re = derived_unsmob<Paper_column> (scm_cdr (between));
 
           if (! (le && re))
             break;