*/
#include "context.hh"
+#include "performer.hh"
#include "performer-group.hh"
#include "warn.hh"
get_daddy_performer ()->announce_element (i);
}
+
+Performer *
+unsmob_performer (SCM perf)
+{
+ return dynamic_cast<Performer *> (unsmob_translator (perf));
+}