diff options
author | Greg J. Badros <gjb@cs.washington.edu> | 1999-12-12 20:35:02 +0000 |
---|---|---|
committer | Greg J. Badros <gjb@cs.washington.edu> | 1999-12-12 20:35:02 +0000 |
commit | 6e8d25a6954b00e1ff40976d95c8289cfa9fcca4 (patch) | |
tree | 524a6cdf3bb04e0ed9cb97b5d66777972e336c07 /libguile/init.c | |
parent | 1006486ec27336ea25ece6e5d97a2dbefbfe79e3 (diff) | |
download | guile-6e8d25a6954b00e1ff40976d95c8289cfa9fcca4.tar.gz |
* *.c: Finish replacing K&R style prototypes with ANSI C
prototypes.
* eval.c: Make scm_m_mody's 3rd argument be a const char *, not a
char *. ANSI prototypes caught this.
* strorder.c: Use GUILE_PROC1 for the couple SCM_PROC1 expansions
that I missed.
* scm_validate.h: Use SCM_BOOLP for validating bools. Do not
expand macros if SCM_DOCSTRING_SNARF.
Diffstat (limited to 'libguile/init.c')
-rw-r--r-- | libguile/init.c | 13 |
1 files changed, 3 insertions, 10 deletions
diff --git a/libguile/init.c b/libguile/init.c index 1025124da..9567e38d7 100644 --- a/libguile/init.c +++ b/libguile/init.c @@ -376,11 +376,7 @@ static SCM invoke_main_func(void *body_data); void -scm_boot_guile (argc, argv, main_func, closure) - int argc; - char ** argv; - void (*main_func) (); - void *closure; +scm_boot_guile (int argc, char ** argv, void (*main_func) (), void *closure) { /* The garbage collector uses the address of this variable as one end of the stack, and the address of one of its own local @@ -405,9 +401,7 @@ scm_boot_guile (argc, argv, main_func, closure) int scm_boot_guile_1_live = 0; static void -scm_boot_guile_1 (base, closure) - SCM_STACKITEM *base; - struct main_func_closure *closure; +scm_boot_guile_1 (SCM_STACKITEM *base, struct main_func_closure *closure) { static int initialized = 0; /* static int live = 0; */ @@ -558,8 +552,7 @@ scm_boot_guile_1 (base, closure) static SCM -invoke_main_func (body_data) - void *body_data; +invoke_main_func (void *body_data) { struct main_func_closure *closure = (struct main_func_closure *) body_data; |