diff --git a/libguile/feature.c b/libguile/feature.c index 186108871..e9b205386 100644 --- a/libguile/feature.c +++ b/libguile/feature.c @@ -51,14 +51,9 @@ SCM *scm_loc_features; -#ifdef __STDC__ -void -scm_add_feature(char* str) -#else void scm_add_feature(str) char* str; -#endif { *scm_loc_features = scm_cons(SCM_CAR(scm_intern(str, strlen(str))), *scm_loc_features); } @@ -70,13 +65,8 @@ scm_add_feature(str) SCM_PROC(s_compiled_library_path, "compiled-library-path", 0, 0, 0, scm_compiled_library_path); -#ifdef __STDC__ -SCM -scm_compiled_library_path (void) -#else SCM scm_compiled_library_path () -#endif { #ifndef LIBRARY_PATH return SCM_BOOL_F; @@ -89,13 +79,8 @@ scm_compiled_library_path () SCM_PROC(s_program_arguments, "program-arguments", 0, 0, 0, scm_program_arguments); -#ifdef __STDC__ -SCM -scm_program_arguments (void) -#else SCM scm_program_arguments () -#endif { return scm_progargs; } @@ -105,13 +90,8 @@ scm_program_arguments () -#ifdef __STDC__ -void -scm_init_feature(void) -#else void scm_init_feature() -#endif { scm_loc_features = &SCM_CDR(scm_sysintern("*features*", SCM_EOL)); #ifdef RECKLESS diff --git a/libguile/feature.h b/libguile/feature.h index d57b18af2..c7adbfa40 100644 --- a/libguile/feature.h +++ b/libguile/feature.h @@ -46,24 +46,12 @@ #include - extern SCM *scm_loc_features; - -#ifdef __STDC__ -extern void scm_add_feature(char* str); -extern SCM scm_compiled_library_path (void); -extern SCM scm_program_arguments (void); -extern void scm_init_feature(void); - -#else /* STDC */ -extern void scm_add_feature(); -extern SCM scm_compiled_library_path (); -extern SCM scm_program_arguments (); -extern void scm_init_feature(); - -#endif /* STDC */ - +extern void scm_add_feature PROTO((char* str)); +extern SCM scm_compiled_library_path PROTO((void)); +extern SCM scm_program_arguments PROTO((void)); +extern void scm_init_feature PROTO((void)); #endif /* FEATUREH */