mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-13 23:20:32 +02:00
Code Activity

* feature.h, feature.c: Use PROTO macro, instead of #if __STDC__.

Browse source
This commit is contained in:
Jim Blandy 1996-09-04 19:33:49 +00:00
parent 7444090349
commit d881a38f5f
2 changed files with 4 additions and 36 deletions
Download patch file Download diff file Expand all files Collapse all files

20
libguile/feature.c
View file

@ -51,14 +51,9 @@
SCM *scm_loc_features; SCM *scm_loc_features;
#ifdef __STDC__
void
scm_add_feature(char* str)
#else
void void
scm_add_feature(str) scm_add_feature(str)
char* str; char* str;
#endif
{ {
*scm_loc_features = scm_cons(SCM_CAR(scm_intern(str, strlen(str))), *scm_loc_features); *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); 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
scm_compiled_library_path () scm_compiled_library_path ()
#endif
{ {
#ifndef LIBRARY_PATH #ifndef LIBRARY_PATH
return SCM_BOOL_F; 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); SCM_PROC(s_program_arguments, "program-arguments", 0, 0, 0, scm_program_arguments);
#ifdef __STDC__
SCM
scm_program_arguments (void)
#else
SCM SCM
scm_program_arguments () scm_program_arguments ()
#endif
{ {
return scm_progargs; return scm_progargs;
} }
@ -105,13 +90,8 @@ scm_program_arguments ()
#ifdef __STDC__
void
scm_init_feature(void)
#else
void void
scm_init_feature() scm_init_feature()
#endif
{ {
scm_loc_features = &SCM_CDR(scm_sysintern("*features*", SCM_EOL)); scm_loc_features = &SCM_CDR(scm_sysintern("*features*", SCM_EOL));
#ifdef RECKLESS #ifdef RECKLESS

20
libguile/feature.h
View file

@ -46,24 +46,12 @@
#include <libguile/__scm.h> #include <libguile/__scm.h>
extern SCM *scm_loc_features; extern SCM *scm_loc_features;
extern void scm_add_feature PROTO((char* str));
#ifdef __STDC__ extern SCM scm_compiled_library_path PROTO((void));
extern void scm_add_feature(char* str); extern SCM scm_program_arguments PROTO((void));
extern SCM scm_compiled_library_path (void); extern void scm_init_feature PROTO((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 */
#endif /* FEATUREH */ #endif /* FEATUREH */