class Undead : public Simple_smob<Undead>
{
public:
- int print_smob (SCM, scm_print_state *);
+ int print_smob (SCM, scm_print_state *) const;
SCM mark_smob () const;
static const char type_p_name_[];
private:
}
int
-Undead::print_smob (SCM port, scm_print_state *)
+Undead::print_smob (SCM port, scm_print_state *) const
{
scm_puts ("#<Undead ", port);
scm_display (object (), port);