Issue 4377: Run a script for using derived_unsmob where obvious

[lilypond.git] / lily / performer-group.cc

diff --git a/lily/performer-group.cc b/lily/performer-group.cc
index 980590ca1a1b29697fcd06542c1865677621f7dd..794fdaf48f528eaeeec839f121d035a2a2debf0c 100644 (file)
--- a/lily/performer-group.cc
+++ b/lily/performer-group.cc
@@ -71,7 +71,7 @@ performer_each (SCM list, Performer_method method)
 {
   for (SCM p = list; scm_is_pair (p); p = scm_cdr (p))
     {
-      Performer *e = dynamic_cast<Performer *> (Translator::unsmob (scm_car (p)));
+      Performer *e = Performer::unsmob (scm_car (p));
       if (e)
         (e->*method) ();
     }