release: 1.3.53

[lilypond.git] / lily / lily-guile.cc

diff --git a/lily/lily-guile.cc b/lily/lily-guile.cc
index 9d030b8e864b454e7f0c91397f31405a22aa7006..ebe2ff5b697436ce5f778e66220690fc432ccb8e 100644 (file)
--- a/lily/lily-guile.cc
+++ b/lily/lily-guile.cc
@@ -21,6 +21,7 @@
 #include "debug.hh"
 #include "direction.hh"
 #include "offset.hh"
+#include "interval.hh"
 
 SCM
 ly_str02scm (char const*c)
@@ -263,7 +264,19 @@ to_dir (SCM s)
   return (Direction) gh_scm2int (s);
 }
 
+Interval
+ly_scm2interval (SCM p)
+{
+  return  Interval (gh_scm2double (gh_car (p)),
+                   gh_scm2double (gh_cdr (p)));
+}
 
+SCM
+ly_interval2scm (Interval i)
+{
+  return gh_cons (gh_double2scm (i[LEFT]),
+                 gh_double2scm (i[RIGHT]));
+}
 
 
 bool