X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Flily-guile.cc;h=69990c82b1015e7253c3c2623afd3fc9d4e3c08a;hb=16f86be3db31bcf062a33fdd79c37c168e4883d4;hp=8e31e897e673354fb3980c18d94cffcfa2840541;hpb=e22333e86580918f2b5c5167fd4881758f4d43a7;p=lilypond.git

diff --git a/lily/lily-guile.cc b/lily/lily-guile.cc
index 8e31e897e6..69990c82b1 100644
--- a/lily/lily-guile.cc
+++ b/lily/lily-guile.cc
@@ -797,3 +797,18 @@ display_list (SCM s)
   scm_puts (")", p);
   return SCM_UNSPECIFIED;
 }
+
+Slice
+int_list_to_slice (SCM l)
+{
+  Slice s;
+  s.set_empty ();
+  for (; gh_pair_p (l); l = gh_cdr (l))
+    {
+      if (gh_number_p (gh_car (l)))
+	s.add_point (gh_scm2int (gh_car (l))); 
+    }
+
+  return s;
+}
+