- 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)