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

* *.c: Finish replacing K&R style prototypes with ANSI C

Browse source 
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.
This commit is contained in:
Greg J. Badros 1999-12-12 20:35:02 +00:00
parent 1006486ec2
commit 6e8d25a695
36 changed files with 273 additions and 523 deletions
Download patch file Download diff file Expand all files Collapse all files

13
libguile/init.c
View file

@ -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;