From b04ab0c624621acdd985861f1fb9f2c3d4f6275f Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Sun, 6 Sep 2009 13:51:31 +0200 Subject: 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. --- libguile/array-map.c | 26 -------------------------- 1 file changed, 26 deletions(-) (limited to 'libguile/array-map.c') 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 @@ -697,27 +697,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) { @@ -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; -- cgit v1.2.3