summaryrefslogtreecommitdiff
path: root/libguile/array-map.c
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2011-02-13 14:47:33 +0100
committerLudovic Courtès <ludo@gnu.org>2011-02-13 14:47:33 +0100
commit10b9343f04ce8ed245b8d4316805909d2821d5b1 (patch)
tree60723384aae1ada99836653f74af2b813c5c3a4d /libguile/array-map.c
parentb339459e9443a319ce4289c2936783ca3abb7ef1 (diff)
downloadguile-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.c5
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: