X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fmusic-function-scheme.cc;h=c22634f1522d370fd5fd099a1c4485c01f35291a;hb=98797fc60f299f8e84d9719cef45c2db4131532b;hp=06e57f083b7f51326a7248bdd2b589d4e51a3d54;hpb=9e69cb84d6ee5b0a861cd97869b10e3bdf0c833c;p=lilypond.git

diff --git a/lily/music-function-scheme.cc b/lily/music-function-scheme.cc
index 06e57f083b..c22634f152 100644
--- a/lily/music-function-scheme.cc
+++ b/lily/music-function-scheme.cc
@@ -2,29 +2,29 @@
 
 LY_DEFINE (ly_music_function_p, "ly:music-function?", 1, 0, 0,
 	   (SCM x),
-	   "Is @var{x} an @code{music-function}?")
+	   "Is @var{x} a @code{music-function}?")
 {
   return is_music_function (x) ? SCM_BOOL_T : SCM_BOOL_F;
 }
 		 
 LY_DEFINE (ly_music_function_extract, "ly:music-function-extract", 1, 0, 0,
 	   (SCM x),
-	   "Return the Scheme function inside @var{x}")
+	   "Return the Scheme function inside@tie{}@var{x}.")
 {
-  SCM_ASSERT_TYPE(is_music_function (x), x, SCM_ARG1, __FUNCTION__,
-		  "music function");
+  LY_ASSERT_TYPE (is_music_function, x, 1);
   
   return SCM_CELL_OBJECT_1(x);
 }
 
 LY_DEFINE (ly_make_music_function, "ly:make-music-function", 2, 0, 0,
 	   (SCM signature, SCM func),
-	   "Make a function to process music, to be used for the "
-	   "parser. @code{func} is the function, and @code{signature} describes "
-	   "Its arguments. @code{signature} is a list containing either "
-	   "@code{ly:music?} predicates or other type predicates.")
+	   "Make a function to process music, to be used for the"
+	   " parser.  @code{func} is the function, and @code{signature}"
+	   " describes its arguments.  @code{signature} is a list"
+	   " containing either @code{ly:music?} predicates or other type"
+	   " predicates.")
 {
-  SCM_ASSERT_TYPE(ly_is_procedure (func), func, SCM_ARG1, __FUNCTION__, "function");
+  LY_ASSERT_TYPE (ly_is_procedure, func, 1);
   return  make_music_function (signature, func);
 }