Preliminaries for `make grand-replace'.

[lilypond.git] / lily / include / performance.hh

diff --git a/lily/include/performance.hh b/lily/include/performance.hh
index 8b5de863319365ba66070d9826d825aa6c3e1602..2df4bb75c63e4a03311e99f87b458a0b2597fd4f 100644 (file)
--- a/lily/include/performance.hh
+++ b/lily/include/performance.hh
@@ -31,6 +31,13 @@ public:
   ~Performance ();
   DECLARE_CLASSNAME (Performance);
 
+  static Performance *unsmob (SCM p) {
+    return dynamic_cast <Performance *> (Music_output::unsmob (p));
+  }
+  static bool is_smob (SCM p) {
+    return Music_output::is_smob (p) && unsmob (p);
+  }
+
   void add_element (Audio_element *p);
   virtual void process ();
   void remap_grace_durations ();