From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sat, 23 Dec 2006 21:04:45 +0000 (+0100)
Subject: guile debugging aids.
X-Git-Tag: release/2.11.5-1~33^2~8
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=36f999141d620b5c4285e7aa56a1aef3938114ea;p=lilypond.git

guile debugging aids.
---

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;
+};