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/gdbint.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/gdbint.c')
-rw-r--r-- | libguile/gdbint.c | 16 |
1 files changed, 5 insertions, 11 deletions
diff --git a/libguile/gdbint.c b/libguile/gdbint.c index 647e38504..c219dbd32 100644 --- a/libguile/gdbint.c +++ b/libguile/gdbint.c @@ -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) |