summaryrefslogtreecommitdiff
path: root/libguile/ramap.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/ramap.c')
-rw-r--r--libguile/ramap.c8
1 files changed, 3 insertions, 5 deletions
diff --git a/libguile/ramap.c b/libguile/ramap.c
index 47ef69eb3..40034bb48 100644
--- a/libguile/ramap.c
+++ b/libguile/ramap.c
@@ -1247,7 +1247,7 @@ ramap (SCM ra0, SCM proc, SCM ras)
static int
-ramap_cxr (SCM ra0, SCM proc, SCM ras)
+ramap_dsubr (SCM ra0, SCM proc, SCM ras)
{
SCM ra1 = SCM_CAR (ras);
SCM e1 = SCM_UNDEFINED;
@@ -1514,10 +1514,8 @@ SCM_DEFINE (scm_array_map_x, "array-map!", 2, 0, 1,
case scm_tc7_subr_2o:
scm_ramapc (ramap_2o, proc, ra0, lra, FUNC_NAME);
return SCM_UNSPECIFIED;
- case scm_tc7_cxr:
- if (!SCM_SUBRF (proc))
- goto gencase;
- scm_ramapc (ramap_cxr, proc, ra0, lra, FUNC_NAME);
+ case scm_tc7_dsubr:
+ scm_ramapc (ramap_dsubr, proc, ra0, lra, FUNC_NAME);
return SCM_UNSPECIFIED;
case scm_tc7_rpsubr:
{