#include "spring.hh"
#include "warn.hh"
-#include "ly-smobs.icc"
-IMPLEMENT_SIMPLE_SMOBS (Spring);
-SCM
-Spring::mark_smob (SCM)
-{
- return SCM_UNSPECIFIED;
-}
-int
-Spring::print_smob (SCM, SCM p, scm_print_state *)
-{
- scm_puts ("#<Spring smob>", p);
- return 1;
-}
SCM
Spring::equal_p (SCM a, SCM b)
return s->smobbed_copy ();
}
-IMPLEMENT_TYPE_P (Spring, "ly:spring?");
+const char Spring::type_p_name_[] = "ly:spring?";