release: 1.3.148

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

diff --git a/lily/lily-guile.cc b/lily/lily-guile.cc
index 04bb47cdd3c47dcd3bc60d402a22595521afa094..b93e7cb30f6c704bb56a8ca1ac06a8aa279d9a56 100644 (file)
--- 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)
 {