bool (*equal_callback) (void *, void *);
} Listener_function_table;
-class Listener
+class Listener : public Simple_smob<Listener>
{
+public:
+ static SCM equal_p (SCM, SCM);
+ SCM mark_smob ();
+ static const char type_p_name_[];
+private:
void *target_;
Listener_function_table *type_;
public:
&& (*type_->equal_callback) ((void *) target_, (void *) other.target_);
}
- DECLARE_SIMPLE_SMOBS (Listener);
};
#define IMPLEMENT_LISTENER(cl, method) \