summaryrefslogtreecommitdiff
path: root/libguile/init.c
diff options
context:
space:
mode:
authorGreg J. Badros <gjb@cs.washington.edu>1999-12-12 20:35:02 +0000
committerGreg J. Badros <gjb@cs.washington.edu>1999-12-12 20:35:02 +0000
commit6e8d25a6954b00e1ff40976d95c8289cfa9fcca4 (patch)
tree524a6cdf3bb04e0ed9cb97b5d66777972e336c07 /libguile/init.c
parent1006486ec27336ea25ece6e5d97a2dbefbfe79e3 (diff)
downloadguile-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.c13
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;