for (SCM s = last; scm_is_pair (s); s = scm_cdr (s))
{
SCM new_alter_pair = scm_assoc (scm_caar (s), key);
for (SCM s = last; scm_is_pair (s); s = scm_cdr (s))
{
SCM new_alter_pair = scm_assoc (scm_caar (s), key);
cancellation_->set_property ("c0-position",
get_property ("middleCPosition"));
}
cancellation_->set_property ("c0-position",
get_property ("middleCPosition"));
}