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

9
libguile/debug.c
View file

@ -522,10 +522,7 @@ scm_reverse_lookup (SCM env, SCM data)
}
SCM
scm_start_stack (id, exp, env)
SCM id;
SCM exp;
SCM env;
scm_start_stack (SCM id, SCM exp, SCM env)
{
SCM answer;
scm_debug_frame vframe;
@ -543,9 +540,7 @@ scm_start_stack (id, exp, env)
SCM_SYNTAX(s_start_stack, "start-stack", scm_makacro, scm_m_start_stack);
static SCM
scm_m_start_stack (exp, env)
SCM exp;
SCM env;
scm_m_start_stack (SCM exp, SCM env)
{
exp = SCM_CDR (exp);
SCM_ASSERT (SCM_NIMP (exp)