mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-20 02:30:23 +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

16
libguile/gdbint.c
View file

@ -163,8 +163,7 @@ remark_port (SCM port)
int
gdb_maybe_valid_type_p (value)
SCM value;
gdb_maybe_valid_type_p (SCM value)
{
if (SCM_IMP (value) || scm_cellp (value))
return scm_tag (value) != SCM_MAKINUM (-1);
@ -173,8 +172,7 @@ gdb_maybe_valid_type_p (value)
int
gdb_read (str)
char *str;
gdb_read (char *str)
{
SCM ans;
int status = 0;
@ -239,8 +237,7 @@ exit:
int
gdb_eval (exp)
SCM exp;
gdb_eval (SCM exp)
{
RESET_STRING;
if (SCM_IMP (exp))
@ -264,8 +261,7 @@ gdb_eval (exp)
int
gdb_print (obj)
SCM obj;
gdb_print (SCM obj)
{
RESET_STRING;
SCM_BEGIN_FOREIGN_BLOCK;
@ -286,9 +282,7 @@ gdb_print (obj)
int
gdb_binding (name, value)
SCM name;
SCM value;
gdb_binding (SCM name, SCM value)
{
RESET_STRING;
if (SCM_GC_P)