-/**
- Put all score elements of ELT's property called NAME into an array,
- and return it. */
-template<class T>
-Link_array<T>
-Pointer_group_interface__extract_elements (Score_element const *elt, T *, const char* name)
-{
- Link_array<T> arr;
-
- for (SCM s = elt->get_elt_property (name); gh_pair_p (s); s = gh_cdr (s))
- {
- SCM e = gh_car (s);
- arr.push (dynamic_cast<T*> (unsmob_element (e)));
- }
-
- arr.reverse ();
- return arr;
-}
-
-
-