diff options
author | Ludovic Courtès <ludo@gnu.org> | 2011-02-13 14:47:33 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2011-02-13 14:47:33 +0100 |
commit | 10b9343f04ce8ed245b8d4316805909d2821d5b1 (patch) | |
tree | 60723384aae1ada99836653f74af2b813c5c3a4d /libguile/array-map.c | |
parent | b339459e9443a319ce4289c2936783ca3abb7ef1 (diff) | |
download | guile-10b9343f04ce8ed245b8d4316805909d2821d5b1.tar.gz |
Change `scm_ramapc' prototype to avoid empty declarators (bug #23681).
* libguile/array-map.h (scm_ramapc): Change `cproc' to `void *' instead
of using empty declarators.
* libguile/array-map.c (scm_ramapc): Adjust accordingly.
Diffstat (limited to 'libguile/array-map.c')
-rw-r--r-- | libguile/array-map.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/libguile/array-map.c b/libguile/array-map.c index dd8813602..d442bdf4e 100644 --- a/libguile/array-map.c +++ b/libguile/array-map.c @@ -168,13 +168,16 @@ scm_ra_matchp (SCM ra0, SCM ras) SCM lra; list of source arrays. const char *what; caller, for error reporting. */ int -scm_ramapc (int (*cproc)(), SCM data, SCM ra0, SCM lra, const char *what) +scm_ramapc (void *cproc_ptr, SCM data, SCM ra0, SCM lra, const char *what) { SCM z; SCM vra0, ra1, vra1; SCM lvra, *plvra; long *vinds; int k, kmax; + int (*cproc) (); + + cproc = cproc_ptr; switch (scm_ra_matchp (ra0, lra)) { default: |