+ static void init (void)
+ {
+ // This is stupid, but without forcing initialization at the
+ // Scheme startup hook stage, stuff like ly:undead? will not be
+ // defined when the first Scheme files are loaded.
+ //
+ // So we provide an explicit initialization routine that can be
+ // used with ADD_SCM_INIT_FUNC
+ (void) smob_tag ();
+ }
+#define ADD_SMOB_INIT(type) ADD_SCM_INIT_FUNC (Smob_init_ ## type, Smob_base<type>::init)