articulations);
}
- return (scm_reverse (articulations));
+ return scm_reverse_x (articulations, SCM_EOL);
}
r->origin ()->warning ("Incomplete keyAlterationOrder for key signature");
}
- context ()->set_property ("keySignature", scm_reverse (accs));
+ context ()->set_property ("keySignature", scm_reverse_x (accs, SCM_EOL));
context ()->set_property ("tonic",
r->get_property ("tonic"));
}
? ly_symbol2scm ("left-broken")
: ly_symbol2scm ("right-broken"), bound_details, SCM_EOL);
- for (SCM s = scm_reverse (extra); scm_is_pair (s); s = scm_cdr (s))
- details = scm_cons (scm_car (s), details);
+ details = scm_append (scm_list_2 (extra, details));
}
if (details == SCM_BOOL_F)
pb->unprotect ();
}
}
- return scm_append (scm_reverse (ret));
+ return scm_append (scm_reverse_x (ret, SCM_EOL));
}
SCM
{
// Create a stencil for each system.
SCM paper_systems = SCM_EOL;
- for (SCM s = scm_reverse (systems); scm_is_pair (s); s = scm_cdr (s))
+ for (SCM s = systems; scm_is_pair (s); s = scm_cdr (s))
{
SCM paper_system = scm_car (s);
if (Grob *g = unsmob_grob (scm_car (s)))
paper_systems = scm_cons (paper_system, paper_systems);
}
+ paper_systems = scm_reverse_x (paper_systems, SCM_EOL);
// Create the page and draw it.
SCM page = make_page (page_num, last);
programming_error ("Systems on a page must be a prob or grob.");
}
- return scm_reverse (out);
+ return scm_reverse_x (out, SCM_EOL);
}
/*
systems_ = SCM_EOL;
if (scm_is_pair (bookparts_))
{
+ SCM system_list = SCM_EOL;
for (SCM p = bookparts_; scm_is_pair (p); p = scm_cdr (p))
if (Paper_book *pbookpart = unsmob_paper_book (scm_car (p)))
- systems_ = scm_append_x (scm_list_2 (systems_,
- pbookpart->systems ()));
+ system_list = scm_cons (pbookpart->systems (), system_list);
+ systems_ = scm_append (scm_reverse_x (system_list, SCM_EOL));
}
else
{
SCM system_list
= scm_vector_to_list (pscore->get_paper_systems ());
- system_list = scm_reverse (system_list);
- systems_ = scm_append (scm_list_2 (system_list, systems_));
+ systems_ = scm_reverse_x (system_list, systems_);
}
else
{
systems_ = scm_cons (scm_car (s), systems_);
}
}
- systems_ = scm_reverse (systems_);
+ systems_ = scm_reverse_x (systems_, SCM_EOL);
/* backwards compatibility for the old page breaker */
int i = 0;
SCM ret = SCM_EOL;
for (vsize i = 0; i < broken_intos_.size (); i++)
ret = scm_cons (broken_intos_[i]->self_scm (), ret);
- return scm_reverse (ret);
+ return scm_reverse_x (ret, SCM_EOL);
}
SCM