X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Finclude%2Fperformance.hh;h=14c811b150231cc2867de9ecdec455cf9d068f9c;hb=47db9a3883d726ca53e2133a3b2298f78dd6a32e;hp=f3093f82c5060699bddb979a5aa0f7e428c735dc;hpb=f4abbfff5f0d985a457e15586dbcc3ae473b0dee;p=lilypond.git

diff --git a/lily/include/performance.hh b/lily/include/performance.hh
index f3093f82c5..14c811b150 100644
--- a/lily/include/performance.hh
+++ b/lily/include/performance.hh
@@ -1,7 +1,7 @@
 /*
   This file is part of LilyPond, the GNU music typesetter.
 
-  Copyright (C) 1997--2014 Jan Nieuwenhuizen <janneke@gnu.org>
+  Copyright (C) 1997--2015 Jan Nieuwenhuizen <janneke@gnu.org>
 
   LilyPond is free software: you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
@@ -31,7 +31,12 @@ public:
   ~Performance ();
   DECLARE_CLASSNAME (Performance);
 
-  static Performance *unsmob (SCM);
+  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 ();