*/
#include "smobs.hh"
+#include "listener.hh"
+
+Listener
+Smob_core::get_listener (SCM callback)
+{
+ return Listener (callback, self_scm ());
+}
/*
The CDR contains the actual protected list.
*prot_cons = SCM_EOL;
#endif
}
+
+
+Scm_init const *Scm_init::list_ = 0;
+
+void
+Scm_init::init ()
+{
+ for (Scm_init const *p = list_; p; p = p->next_)
+ p->fun_ ();
+}