mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 03:30:27 +02:00
Code Activity

* init.c (scm_boot_guile): Add init_func argument; call

Browse source 
(*init_func) instead of calling scm_appinit; it's ucky to
hard-code names for the user's procedures.
* init.h (scm_boot_guile): Adjust declaration.

* init.h (scm_start_stack, scm_restart_stack): Use PROTO;
eliminate all the __STDC__ conditionals.
(scm_boot_guile): Add declaration.
* init.c (scm_start_stack, scm_restart_stack, scm_boot_guile):
Remove __STDC__ conditionals around function definitions; the
declarations in init.h will provide the same information, more
usefully.
This commit is contained in:
Jim Blandy 1996-08-15 07:22:05 +00:00
parent 47b44240b9
commit acc909e634
1 changed files with 8 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

21
libguile/init.h
View file

@ -58,18 +58,13 @@ enum scm_boot_status
#ifdef __STDC__
extern void scm_start_stack (void * base, FILE * in, FILE * out, FILE * err);
extern void scm_restart_stack (void * base);
#else /* STDC */
extern void scm_start_stack ();
extern void scm_restart_stack ();
#endif /* STDC */
extern void scm_start_stack PROTO ((void *base,
FILE *in, FILE *out, FILE *err));
extern void scm_restart_stack PROTO ((void * base));
extern int scm_boot_guile PROTO ((char **result,
int argc, char **argv,
FILE *in, FILE *out, FILE *err,
void (*init_func) (),
char *boot_cmd));
#endif /* INITH */