X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Flily-guile.cc;h=9646364087cab8b71c95dbfe3a867a243de716c0;hb=1753b1a73742a5b0893037116bb6f2febba277f3;hp=85f2e9818635c8dcaada41c423bf939fa07dfb03;hpb=5320f6d196dd67186178adcb6e5debdbbec8aee8;p=lilypond.git

diff --git a/lily/lily-guile.cc b/lily/lily-guile.cc
index 85f2e98186..9646364087 100644
--- a/lily/lily-guile.cc
+++ b/lily/lily-guile.cc
@@ -157,9 +157,9 @@ LY_DEFINE(ly_warning,"ly:warn", 1, 0, 0,
   return SCM_BOOL_T;
 }
 
-LY_DEFINE(ly_isdir,  "ly:dir?", 1,0, 0,  (SCM s),
-	  "type predicate. A direction is a -1, 0 or 1, where -1 represents left or "
-"down and 1 represents right or up. ")
+LY_DEFINE(ly_dir_p,  "ly:dir?", 1,0, 0,  (SCM s),
+	  "type predicate. A direction is a -1, 0 or 1, where -1 represents "
+	  "left or down and 1 represents right or up. ")
 {
   if (gh_number_p (s))
     {
@@ -170,7 +170,7 @@ LY_DEFINE(ly_isdir,  "ly:dir?", 1,0, 0,  (SCM s),
 }
 
 bool
-ly_number_pair_p (SCM p)
+is_number_pair (SCM p)
 {
   return gh_pair_p (p) && gh_number_p (ly_car (p)) && gh_number_p (ly_cdr (p));
 }
@@ -217,7 +217,7 @@ unsigned int ly_scm_hash (SCM s)
 
 
 bool
-ly_dir_p (SCM s)
+is_direction (SCM s)
 {
   if (gh_number_p (s))
     {
@@ -229,7 +229,7 @@ ly_dir_p (SCM s)
 
 
 bool
-ly_axis_p (SCM s)
+is_axis (SCM s)
 {
   if (gh_number_p (s))
     {