1 files changed, 15 insertions, 0 deletions
diff --git a/pd/src/m_obj.c b/pd/src/m_obj.c
index 6e3e1c19..e1f0f54a 100644
--- a/pd/src/m_obj.c
+++ b/pd/src/m_obj.c
@@ -6,6 +6,7 @@
 can interconnect via inlets and outlets; also, the (terse) generic
 behavior for "gobjs" appears at the end of this file.  */
 
+#include "m_pd.h"
 #include "m_imp.h"
 
 union inletunion
@@ -609,6 +610,20 @@ int obj_siginletindex(t_object *x, int m)
     return (-1);
 }
 
+int obj_issignalinlet(t_object *x, int m)
+{
+    t_inlet *i;
+    if (x->ob_pd->c_firstin)
+    {
+    	if (!m)
+	    return (x->ob_pd->c_firstin && x->ob_pd->c_floatsignalin);
+    	else m--;
+    }
+    for (i = x->ob_inlet; i && m; i = i->i_next, m--)
+    	;
+    return (i && (i->i_symfrom == &s_signal));
+}
+
 int obj_nsigoutlets(t_object *x)
 {
     int n;