release commit

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

diff --git a/lily/include/group-interface.hh b/lily/include/group-interface.hh
index e7d69d4e181b9d683703c056b1049197350b7757..6b21e852b7fa468dfaafb245a013e1986df0a8f6 100644 (file)
--- a/lily/include/group-interface.hh
+++ b/lily/include/group-interface.hh
@@ -42,7 +42,7 @@ Pointer_group_interface__extract_grobs (Grob const *elt, T *, const char* name)
 {
   Link_array<T> arr;
 
-  for (SCM s = elt->get_property (name); ly_pair_p (s); s = ly_cdr (s))
+  for (SCM s = elt->get_property (name); scm_is_pair (s); s = ly_cdr (s))
     {
       SCM e = ly_car (s);
       arr.push (dynamic_cast<T*> (unsmob_grob (e)));