X-Git-Url: https://git.donarmstrong.com/lilypond.git?a=blobdiff_plain;f=lily%2Flily-guile.cc;h=b93e7cb30f6c704bb56a8ca1ac06a8aa279d9a56;hb=2a0f240bdfac5cec93adc010d3c5eff4986746e5;hp=04bb47cdd3c47dcd3bc60d402a22595521afa094;hpb=aee10d36929386ccb899c1b8aea99bc207827f83;p=lilypond.git

diff --git a/lily/lily-guile.cc b/lily/lily-guile.cc
index 04bb47cdd3..b93e7cb30f 100644
--- a/lily/lily-guile.cc
+++ b/lily/lily-guile.cc
@@ -268,6 +268,19 @@ isdir_b (SCM s)
   return false;
 }
 
+
+bool
+isaxis_b (SCM s)
+{
+  if (gh_number_p (s))
+    {
+      int i = gh_scm2int (s);
+      return i== 0 || i == 1;
+    }
+  return false;
+}
+
+
 Direction
 to_dir (SCM s)
 {