- set_break_subsititution (crit);
- mutable_property_alist_ = substitute_mutable_property_alist (orig);
+ /* Perhaps we simply do the assq_set, but what the heck. */
+ if (!is_live ())
+ return;
+
+ object_alist_ = scm_assq_set_x (object_alist_, s, v);
+}
+
+SCM
+Grob::internal_get_object (SCM sym) const
+{
+#ifdef PROFILE_PROPERTY_ACCESSES
+ note_property_access (&grob_property_lookup_table, sym);
+#endif
+
+ SCM s = scm_sloppy_assq (sym, object_alist_);
+
+ return (s == SCM_BOOL_F) ? SCM_EOL : scm_cdr (s);