class Undead : public Simple_smob<Undead>
{
public:
- int print_smob (SCM, scm_print_state *);
- SCM mark_smob ();
- static const char type_p_name_[];
+ int print_smob (SCM, scm_print_state *) const;
+ SCM mark_smob () const;
+ static const char * const type_p_name_;
private:
SCM object_;
public:
- SCM object () { return object_; }
+ SCM object () const { return object_; }
Undead (SCM object = SCM_UNDEFINED) : object_ (object) { };
};
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);
return 1;
}
-const char Undead::type_p_name_[] = "ly:undead?";
+const char * const Undead::type_p_name_ = "ly:undead?";
LY_DEFINE (ly_make_undead, "ly:make-undead",
1, 0, 0, (SCM object),