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/continuations.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/continuations.c')
-rw-r--r-- | libguile/continuations.c | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/libguile/continuations.c b/libguile/continuations.c index ea8393222..8d64e33b3 100644 --- a/libguile/continuations.c +++ b/libguile/continuations.c @@ -62,8 +62,7 @@ static char s_cont[] = "continuation"; SCM -scm_make_cont (answer) - SCM * answer; +scm_make_cont (SCM *answer) { long j; SCM cont; @@ -141,8 +140,7 @@ grow_throw (SCM *a) void -scm_dynthrow (a) - SCM *a; +scm_dynthrow (SCM *a) { SCM cont = a[0], val = a[1]; #ifndef CHEAP_CONTINUATIONS @@ -184,9 +182,7 @@ scm_dynthrow (a) SCM -scm_call_continuation (cont, val) - SCM cont; - SCM val; +scm_call_continuation (SCM cont, SCM val) { SCM a[3]; a[0] = cont; |