- scm_make_gsubr ("ly-warn", 1, 0, 0, (SCM(*)())ly_warning);
- scm_make_gsubr ("ly-gulp-file", 1,0, 0, (SCM(*)())ly_gulp_file);
- scm_make_gsubr ("dir?", 1,0, 0, (SCM(*)())ly_isdir_p);
- scm_make_gsubr ("undefd", 0,0, 0, (SCM(*)())undefd);
- scm_make_gsubr ("ly-number->string", 1, 0,0, (SCM(*)()) ly_number2string);
+ scm_make_gsubr ("ly-warn", 1, 0, 0, (Scheme_function_unknown)ly_warning);
+ scm_make_gsubr ("ly-gulp-file", 1,0, 0, (Scheme_function_unknown)ly_gulp_file);
+ scm_make_gsubr ("dir?", 1,0, 0, (Scheme_function_unknown)ly_isdir_p);
+ scm_make_gsubr ("undefd", 0,0, 0, (Scheme_function_unknown)undefd);
+ scm_make_gsubr ("ly-number->string", 1, 0,0, (Scheme_function_unknown) ly_number2string);