+ scm_set_car_x (current_context_val, target_alist);
+ }
+}
+
+/*
+ do a pop (indicated by new_value==SCM_UNDEFINED) or push
+ */
+void
+sloppy_general_pushpop_property (Context *context,
+ SCM context_property,
+ SCM grob_property_path,
+ SCM new_value)
+{
+ if (new_value == SCM_UNDEFINED)
+ execute_revert_property (context, context_property,
+ grob_property_path);
+ else
+ execute_override_property (context, context_property,
+ grob_property_path,
+ new_value);
+}
+
+/*
+ Revert the property given by property_path.
+*/
+void
+execute_revert_property (Context *context,
+ SCM context_property,
+ SCM grob_property_path)
+{
+ SCM current_context_val = SCM_EOL;
+ if (context->where_defined (context_property, ¤t_context_val)
+ == context)
+ {
+ SCM current_alist = scm_car (current_context_val);