Add ly:grob-array->list; use in live-elements-list for InstrumentName.

[lilypond.git] / lily / grob-array.cc

diff --git a/lily/grob-array.cc b/lily/grob-array.cc
index 1cebe0e458357ca6245be157d7694c969cde032d..4084e0fa7502be8228136f73342cf12dc22406db 100644 (file)
--- a/lily/grob-array.cc
+++ b/lily/grob-array.cc
@@ -129,3 +129,16 @@ grob_list_to_grob_array (SCM lst)
   return arr_scm;
 }
 
+SCM
+grob_array_to_list (Grob_array *array)
+{
+  SCM list = SCM_EOL;
+  SCM *tail = &list;
+
+  for (vsize i = 0; i < array->size (); i++)
+    {
+      *tail = scm_cons (array->grob (i)->self_scm (), SCM_EOL);
+      tail = SCM_CDRLOC (*tail);
+    }
+  return list;
+}