Reduce amount of consing (mostly replace reverse with reverse! where appropriate)

[lilypond.git] / lily / system.cc

diff --git a/lily/system.cc b/lily/system.cc
index bc59dede88787e7d9e517d80473ae66c7164cd79..f58f1158d483ef54288b07aff00d81d64d66ce64 100644 (file)
--- a/lily/system.cc
+++ b/lily/system.cc
@@ -206,7 +206,7 @@ System::get_broken_system_grobs ()
   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