source file of the GNU LilyPond music typesetter
- (c) 1999--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 1999--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
*/
#ifndef LY_SMOBS_ICC
CL *ptr = new CL (*this); \
SCM s; \
s = scm_cons (SCM_PACK (CL::smob_tag_), SCM_PACK (ptr)); \
- /* scm_gc_register_collectable_memory ((CL *)this, sizeof (CL), #CL " smob");*/ \
+ scm_gc_register_collectable_memory ((CL *)this, sizeof (CL), #CL " smob"); \
\
return s; \
}
#define IMPLEMENT_SMOBS(CL) \
IMPLEMENT_BASE_SMOBS (CL) \
- void \
+ void \
CL::smobify_self () \
{ \
self_scm_ = unprotected_smobify_self (); \
- protection_cons_ = SCM_EOL;\
- protect();\
- }\
- void\
- CL::protect(){ \
- protect_smob (self_scm_, &protection_cons_);\
- }\
- SCM\
- CL::unprotect ()\
- {\
- unprotect_smob (&protection_cons_);\
- return self_scm_;\
+ protection_cons_ = SCM_EOL; \
+ protect (); \
+ } \
+ void \
+ CL::protect () \
+ { \
+ protect_smob (self_scm_, &protection_cons_); \
+ } \
+ SCM \
+ CL::unprotect () \
+ { \
+ unprotect_smob (&protection_cons_); \
+ return self_scm_; \
} \
SCM \
CL::unprotected_smobify_self () \
SCM s; \
SCM_NEWSMOB (s, CL::smob_tag_, this); \
self_scm_ = s; \
- /* scm_gc_register_collectable_memory (this, sizeof (CL), #CL " smob");*/ \
+ scm_gc_register_collectable_memory (this, sizeof (CL), #CL " smob"); \
return s; \
}