class Undead : public Simple_smob<Undead>
{
public:
- int print_smob (SCM, scm_print_state *);
- SCM mark_smob ();
+ int print_smob (SCM, scm_print_state *) const;
+ SCM mark_smob () const;
static const char type_p_name_[];
private:
SCM object_;
public:
- SCM object () { return object_; }
+ SCM object () const { return object_; }
Undead (SCM object = SCM_UNDEFINED) : object_ (object) { };
};
-ADD_SMOB_INIT (Undead);
-
SCM
-Undead::mark_smob ()
+Undead::mark_smob () const
{
bool saved = parsed_objects_should_be_dead;
parsed_objects_should_be_dead = false;
}
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);
"Get back object from @var{undead}.")
{
LY_ASSERT_SMOB (Undead, undead, 1);
- return Undead::unsmob (undead)->object ();
+ return unsmob<Undead> (undead)->object ();
}
// '