summaryrefslogtreecommitdiff
path: root/libguile/array-map.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2009-09-06 13:51:31 +0200
committerAndy Wingo <wingo@pobox.com>2009-12-03 15:33:09 +0100
commitb04ab0c624621acdd985861f1fb9f2c3d4f6275f (patch)
tree3b31c080831d913559dd7b01ab97a0368ea0e2c3 /libguile/array-map.c
parentd84765da44a0a6b28ef19b853832deebf4cfbafc (diff)
downloadguile-b04ab0c624621acdd985861f1fb9f2c3d4f6275f.tar.gz
remove scm_tc7_dsubr
* libguile/tags.h: Remove scm_tc7_dsubr. There are no more users of this. * libguile/array-map.c: * libguile/eval.c: * libguile/eval.i.c: * libguile/goops.c: * libguile/procprop.c: * libguile/procs.h: Remove all dsubr cases.
Diffstat (limited to 'libguile/array-map.c')
-rw-r--r--libguile/array-map.c26
1 files changed, 0 insertions, 26 deletions
diff --git a/libguile/array-map.c b/libguile/array-map.c
index 89e6ec987..72009985c 100644
--- a/libguile/array-map.c
+++ b/libguile/array-map.c
@@ -698,27 +698,6 @@ ramap (SCM ra0, SCM proc, SCM ras)
static int
-ramap_dsubr (SCM ra0, SCM proc, SCM ras)
-{
- SCM ra1 = SCM_CAR (ras);
- unsigned long i0 = SCM_I_ARRAY_BASE (ra0), i1 = SCM_I_ARRAY_BASE (ra1);
- long inc0 = SCM_I_ARRAY_DIMS (ra0)->inc, inc1 = SCM_I_ARRAY_DIMS (ra1)->inc;
- long n = SCM_I_ARRAY_DIMS (ra0)->ubnd - SCM_I_ARRAY_DIMS (ra1)->lbnd + 1;
- ra0 = SCM_I_ARRAY_V (ra0);
- ra1 = SCM_I_ARRAY_V (ra1);
- switch (SCM_TYP7 (ra0))
- {
- default:
- for (; n-- > 0; i0 += inc0, i1 += inc1)
- GVSET (ra0, i0, scm_call_1 (proc, GVREF (ra1, i1)));
- break;
- }
- return 1;
-}
-
-
-
-static int
ramap_rp (SCM ra0, SCM proc, SCM ras)
{
SCM ra1 = SCM_CAR (ras), ra2 = SCM_CAR (SCM_CDR (ras));
@@ -817,11 +796,6 @@ SCM_DEFINE (scm_array_map_x, "array-map!", 2, 0, 1,
gencase:
scm_ramapc (ramap, proc, ra0, lra, FUNC_NAME);
return SCM_UNSPECIFIED;
- case scm_tc7_dsubr:
- if (! scm_is_pair (lra))
- SCM_WRONG_NUM_ARGS (); /* need 1 source */
- scm_ramapc (ramap_dsubr, proc, ra0, lra, FUNC_NAME);
- return SCM_UNSPECIFIED;
case scm_tc7_rpsubr:
{
ra_iproc *p;