* Documentation/user/refman.itely: Compile fix for \mark #'(music ...).

[lilypond.git] / lily / include / group-interface.hh

diff --git a/lily/include/group-interface.hh b/lily/include/group-interface.hh
index 64476d0a0aefaabf0938f08d3585081577df6abb..5ee3a085e59d54f5ede1f9cf3fc9a70556013425 100644 (file)
--- a/lily/include/group-interface.hh
+++ b/lily/include/group-interface.hh
@@ -38,6 +38,22 @@ public:
 /** 
   Put all score elements of ELT's property called NAME into an array,
   and return it.  */
+
+inline Link_array<Grob>
+list_to_grob_array (SCM l)
+{
+  Link_array<Grob> arr;
+
+  for (SCM s = l; gh_pair_p (s); s = gh_cdr (s))
+    {
+      SCM e = gh_car (s);
+      arr.push (unsmob_grob (e));
+    }
+
+  arr.reverse ();
+  return arr;
+}
+
 template<class T>
 Link_array<T>
 Pointer_group_interface__extract_grobs (Grob const *elt, T *, const char* name)