return s;
}
-const char Duration::type_p_name_[] = "ly:duration?";
+const char * const Duration::type_p_name_ = "ly:duration?";
int
-Duration::print_smob (SCM port, scm_print_state *)
+Duration::print_smob (SCM port, scm_print_state *) const
{
scm_puts ("#<Duration ", port);
scm_display (ly_string2scm (to_string ()), port);
SCM
Duration::equal_p (SCM a, SCM b)
{
- Duration *p = (Duration *) SCM_CELL_WORD_1 (a);
- Duration *q = (Duration *) SCM_CELL_WORD_1 (b);
+ Duration *p = unsmob<Duration> (a);
+ Duration *q = unsmob<Duration> (b);
bool eq = p->dots_ == q->dots_
&& p->durlog_ == q->durlog_