Issue 4377: Run a script for using derived_unsmob where obvious

[lilypond.git] / lily / paper-column.cc

diff --git a/lily/paper-column.cc b/lily/paper-column.cc
index 155e37bdec40d1afa45c35d94d2497c7ac9cbecc..a6e44849b60eee620e02e5a2263fe025afba1387 100644 (file)
--- a/lily/paper-column.cc
+++ b/lily/paper-column.cc
@@ -266,7 +266,7 @@ MAKE_DOCUMENTED_SCHEME_CALLBACK (Paper_column, print, 1,
 SCM
 Paper_column::print (SCM p)
 {
-  Paper_column *me = dynamic_cast<Paper_column *> (Grob::unsmob (p));
+  Paper_column *me = derived_unsmob<Paper_column> (p);
 
   string r = ::to_string (Paper_column::get_rank (me));