mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 22:31:12 +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;
#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

20
libguile/feature.h
View file

@ -46,24 +46,12 @@
#include <libguile/__scm.h>
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 */