= scm_sloppy_assq (sym, mutable_property_alist_);
if (handle != SCM_BOOL_F)
- {
- scm_set_cdr_x (handle, scm_cons (thing, scm_cdr (handle)));
- }
+ scm_set_cdr_x (handle, scm_cons (thing, scm_cdr (handle)));
else
{
/*
}
}
-
extern void check_interfaces_for_property (Grob const *me, SCM sym);
void
//#define PROFILE_PROPERTY_ACCESSES
-
SCM
Grob::internal_get_property (SCM sym) const
{
#ifndef NDEBUG
if (profile_property_accesses)
- {
- note_property_access (&grob_property_lookup_table, sym);
- }
+ note_property_access (&grob_property_lookup_table, sym);
#endif
SCM s = scm_sloppy_assq (sym, mutable_property_alist_);
return (s == SCM_BOOL_F) ? SCM_EOL : scm_cdr (s);
}
-
void
Grob::internal_set_object (SCM s, SCM v)
{