]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/include/group-interface.hh
* lily/include/lily-guile.hh: many new ly_ functions. Thanks to
[lilypond.git] / lily / include / group-interface.hh
index 55519b0123a6e8dc37d0d6f921792a5869a7e475..e7d69d4e181b9d683703c056b1049197350b7757 100644 (file)
@@ -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); gh_pair_p (s); s = gh_cdr (s))
+  for (SCM s = elt->get_property (name); ly_pair_p (s); s = ly_cdr (s))
     {
-      SCM e = gh_car (s);
+      SCM e = ly_car (s);
       arr.push (dynamic_cast<T*> (unsmob_grob (e)));
     }