SMOBS
*/
SCM
-Translator::mark_smob ()
+Translator::mark_smob () const
{
derived_mark ();
return SCM_EOL;
}
int
-Translator::print_smob (SCM port, scm_print_state *)
+Translator::print_smob (SCM port, scm_print_state *) const
{
scm_puts ("#<Translator ", port);
scm_puts (class_name (), port);
Moment
get_event_length (Stream_event *e)
{
- Moment *m = Moment::unsmob (e->get_property ("length"));
+ Moment *m = unsmob<Moment> (e->get_property ("length"));
if (m)
return *m;
else