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"
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");