-Listener_function_table listen_closure = {
- call_listen_closure, mark_listen_closure
+static
+bool equal_listen_closure (void *a, void *b)
+{
+ SCM target_a = (SCM) a;
+ SCM target_b = (SCM) b;
+
+ return ly_is_equal (target_a, target_b);
+}
+
+Listener_function_table listen_closure
+=
+{
+ call_listen_closure, mark_listen_closure, equal_listen_closure