- ly_add_type_predicate ((void*) &scm_is_integer, "integer");
- ly_add_type_predicate ((void*) &scm_is_bool, "boolean");
- ly_add_type_predicate ((void*) &scm_is_pair, "pair");
+ 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*) &unsmob_global_context, "Global_context");
+ ly_add_type_predicate ((void*) &unsmob_input, "Input");
+ ly_add_type_predicate ((void*) &unsmob_moment, "Moment");
+ ly_add_type_predicate ((void*) &unsmob_paper_score, "Paper_score");
+ ly_add_type_predicate ((void*) &unsmob_performance, "Performance");
+
+ ly_add_type_predicate ((void*) &is_axis, "axis");