From 428488bdc1a29c40b7b2326be3587270c49ff86a Mon Sep 17 00:00:00 2001
From: David Kastrup <dak@gnu.org>
Date: Thu, 7 May 2015 21:21:54 +0200
Subject: [PATCH] Define derived_unsmob<class T> function

This is a shortcut for dynamic_cast<T *>(T::unsmob (...)) in order to
provide an unsmob function for derived classes.
---
 lily/include/smobs.hh | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/lily/include/smobs.hh b/lily/include/smobs.hh
index 2787750ec5..138bf36346 100644
--- a/lily/include/smobs.hh
+++ b/lily/include/smobs.hh
@@ -234,6 +234,14 @@ public:
   }
 };
 
+// derived_unsmob includes a dynamic_cast:
+
+template <class T>
+inline T *derived_unsmob (SCM arg)
+{
+  return dynamic_cast<T *> (T::unsmob (arg));
+}
+
 // Simple smobs
 template <class Super>
 class Simple_smob : public Smob_base<Super> {
-- 
2.39.5