Issue 5167/6: Changes: show \markup xxx = ... \etc assignments

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

diff --git a/lily/performer-group.cc b/lily/performer-group.cc
index d7cda2bca9b3d4fd423b50bcc9c06a3ad14cc20e..5502bf0958ea2dea6237fb178c4c56352f603eee 100644 (file)
--- a/lily/performer-group.cc
+++ b/lily/performer-group.cc
@@ -1,7 +1,7 @@
 /*
   This file is part of LilyPond, the GNU music typesetter.
 
-  Copyright (C) 1996--2014 Han-Wen Nienhuys <hanwen@xs4all.nl>
+  Copyright (C) 1996--2015 Han-Wen Nienhuys <hanwen@xs4all.nl>
   Jan Nieuwenhuizen <janneke@gnu.org>
 
   LilyPond is free software: you can redistribute it and/or modify
@@ -58,7 +58,7 @@ Performer_group::acknowledge_audio_elements ()
 
       for (SCM p = get_simple_trans_list (); scm_is_pair (p); p = scm_cdr (p))
         {
-          Translator *t = unsmob_translator (scm_car (p));
+          Translator *t = unsmob<Translator> (scm_car (p));
           Performer *eng = dynamic_cast<Performer *> (t);
           if (eng && eng != info.origin_trans_)
             eng->acknowledge_audio_element (info);
@@ -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 *> (unsmob_translator (scm_car (p)));
+      Performer *e = unsmob<Performer> (scm_car (p));
       if (e)
         (e->*method) ();
     }
@@ -83,7 +83,7 @@ Performer_group::do_announces ()
   for (SCM s = context ()->children_contexts ();
        scm_is_pair (s); s = scm_cdr (s))
     {
-      Context *c = unsmob_context (scm_car (s));
+      Context *c = unsmob<Context> (scm_car (s));
       Performer_group *group
         = dynamic_cast<Performer_group *> (c->implementation ());
       if (group)