X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Ffunction-documentation.cc;h=77b6133518374991fdbed8ff6b298ad5d304f2d8;hb=5b4b0d6e9a197e8f9eb085b7c2ad78b8be3e5cfc;hp=5f684b7cb879d109256092251192c73cb041922b;hpb=ade2bb7da653fbd9d670590afd67376fe69c59dd;p=lilypond.git

diff --git a/lily/function-documentation.cc b/lily/function-documentation.cc
index 5f684b7cb8..77b6133518 100644
--- a/lily/function-documentation.cc
+++ b/lily/function-documentation.cc
@@ -3,7 +3,7 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c) 2004--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
+  (c) 2004--2008 Han-Wen Nienhuys <hanwen@xs4all.nl>
 */
 
 #include <cstring>
@@ -50,7 +50,7 @@ ly_add_function_documentation (SCM func,
 
 LY_DEFINE (ly_get_all_function_documentation, "ly:get-all-function-documentation",
 	   0, 0, 0, (),
-	   "Get a hash table with all lilypond Scheme extension functions.")
+	   "Get a hash table with all LilyPond Scheme extension functions.")
 {
   return doc_hash_table;
 }
@@ -79,16 +79,6 @@ predicate_to_typename (void *ptr)
     return type_names[ptr];
 }
 
-static int
-arg_dir (int a, int b)
-{
-  if (&a < &b)
-    return 1;
-  else
-    return -1;
-}
-
-
 /* type predicates. */
 #include "spanner.hh"
 #include "item.hh"
@@ -102,11 +92,10 @@ arg_dir (int a, int b)
 void
 init_func_doc ()
 {
-  function_argument_direction = arg_dir (2,3);
-
   ly_add_type_predicate ((void*) &is_direction, "direction");
   ly_add_type_predicate ((void*) &is_music_function, "Music_function");
   ly_add_type_predicate ((void*) &ly_is_port, "port");
+  ly_add_type_predicate ((void*) &ly_cheap_is_list, "list");
   ly_add_type_predicate ((void*) &unsmob_global_context, "Global_context");
   ly_add_type_predicate ((void*) &unsmob_input, "Input");
   ly_add_type_predicate ((void*) &unsmob_moment, "Moment");