GUILEv2's garbage collection is too asynchronous to make this work.
{
public:
static const char type_p_name_[];
{
public:
static const char type_p_name_[];
int print_smob (SCM, scm_print_state *);
SCM get_signature () { return scm1 (); }
SCM get_function () { return scm2 (); }
int print_smob (SCM, scm_print_state *);
SCM get_signature () { return scm1 (); }
SCM get_function () { return scm2 (); }
/* Non-zero means success. */
return 1;
}
/* Non-zero means success. */
return 1;
}
-
-SCM
-Music_function::mark_smob ()
-{
- ASSERT_LIVE_IS_ALLOWED (self_scm ());
- return Smob2<Music_function>::mark_smob ();
-}