From 36f999141d620b5c4285e7aa56a1aef3938114ea Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sat, 23 Dec 2006 22:04:45 +0100
Subject: [PATCH] guile debugging aids.

---
 lily/lily-guile.cc | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/lily/lily-guile.cc b/lily/lily-guile.cc
index 182ed7e02a..09fc1075f5 100644
--- 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;
+};
-- 
2.39.5