guile debugging aids.

diff --git a/lily/lily-guile.cc b/lily/lily-guile.cc
index 182ed7e02a2dc4f4792c46731f242ca26160a03f..09fc1075f5eb5ca101fd661c4344ec380a00c363 100644 (file)
--- a/lily/lily-guile.cc
+++ b/lily/lily-guile.cc
@@ -780,3 +780,18 @@ parse_symbol_list (char const *symbols)
   replace_all (s, '\t', ' ');
   return ly_string_array_to_scm (string_split (s, ' '));
 }
+
+
+bool
+ly_is_fraction (SCM x)
+{
+  return SCM_FRACTIONP(x);
+}
+
+struct ly_t_double_cell
+{
+  SCM a;
+  SCM b;
+  SCM c;
+  SCM d;
+};