-
-
-int
-Translator::print_smob (SCM s, SCM port, scm_print_state *)
-{
- Translator *sc = (Translator *) gh_cdr (s);
-
- scm_puts ("#<Translator ", port);
- scm_puts ((char *)sc->name (), port);
- scm_display (sc->simple_trans_list_, port);
- /*
- don't try to print properties, that is too much hassle.
- */
- scm_puts (" >", port);
-
-
-
- return 1;
-}
-
-
-
-IMPLEMENT_UNSMOB(Translator, translator);
-IMPLEMENT_SMOBS(Translator);
-IMPLEMENT_DEFAULT_EQUAL_P(Translator);