/*
This file is part of LilyPond, the GNU music typesetter.
- Copyright (C) 2005--2010 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ Copyright (C) 2005--2011 Han-Wen Nienhuys <hanwen@xs4all.nl>
LilyPond is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
return arr_scm;
}
+SCM
+grob_array_to_list (Grob_array *array)
+{
+ SCM list = SCM_EOL;
+ SCM *tail = &list;
+
+ for (vsize i = 0; i < array->size (); i++)
+ {
+ *tail = scm_cons (array->grob (i)->self_scm (), SCM_EOL);
+ tail = SCM_CDRLOC (*tail);
+ }
+ return list;
+}