release commit

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

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