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/unif.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/unif.c')
-rw-r--r-- | libguile/unif.c | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/libguile/unif.c b/libguile/unif.c index 962891a4a..401b461f3 100644 --- a/libguile/unif.c +++ b/libguile/unif.c @@ -1088,10 +1088,7 @@ GUILE_PROC(scm_uniform_vector_ref, "uniform-vector-ref", 2, 0, 0, tries to recycle conses. (Make *sure* you want them recycled.) */ SCM -scm_cvref (v, pos, last) - SCM v; - scm_sizet pos; - SCM last; +scm_cvref (SCM v, scm_sizet pos, SCM last) { switch SCM_TYP7 (v) { @@ -1345,9 +1342,7 @@ GUILE_PROC(scm_array_contents, "array-contents", 1, 1, 0, SCM -scm_ra2contig (ra, copy) - SCM ra; - int copy; +scm_ra2contig (SCM ra, int copy) { SCM ret; long inc = 1; |