- Translator *me = (Translator*) ly_cdr (s);
- scm_puts ("#<Translator ", port);
- scm_puts (classname (me), port);
- scm_display (me->simple_trans_list_, port);
-
- scm_puts (" >", port);
- return 1;
-}
+ LY_ASSERT_SMOB (Translator, trans, 1);
+ Translator *tr = unsmob_translator (trans);