summaryrefslogtreecommitdiff
path: root/libguile/array-map.c
diff options
context:
space:
mode:
authorDaniel Llorens <daniel.llorens@bluewin.ch>2013-04-03 15:40:48 +0200
committerLudovic Courtès <ludo@gnu.org>2013-04-03 21:46:27 +0200
commit75a1b26c5d06e791afce10be9b1ab4e5272e45b4 (patch)
tree1813bb74e3cff3ee801624914532e9c75cb6a1bc /libguile/array-map.c
parent7290de89fb5bf755e2520bd01e977dc132c50c4b (diff)
downloadguile-75a1b26c5d06e791afce10be9b1ab4e5272e45b4.tar.gz
Deprecate dead code in array-map.c
* libguile/array-map.c, libguile/array-map.h: deprecate scm_ra_eqp, scm_ra_lessp, scm_ra_leqp, scm_ra_grp, scm_ra_greqp, scm_ra_sum, scm_ra_product, scm_ra_difference, scm_ra_divide, scm_array_identity. Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'libguile/array-map.c')
-rw-r--r--libguile/array-map.c5
1 files changed, 3 insertions, 2 deletions
diff --git a/libguile/array-map.c b/libguile/array-map.c
index 00a24f150..1dc5d3bca 100644
--- a/libguile/array-map.c
+++ b/libguile/array-map.c
@@ -396,6 +396,7 @@ SCM_DEFINE (scm_array_copy_x, "array-copy!", 2, 0, 0,
/* Functions callable by ARRAY-MAP! */
+#if SCM_ENABLE_DEPRECATED == 1
int
scm_ra_eqp (SCM ra0, SCM ras)
@@ -637,9 +638,9 @@ scm_array_identity (SCM dst, SCM src)
return racp (SCM_CAR (src), scm_cons (dst, SCM_EOL));
}
+#endif /* SCM_ENABLE_DEPRECATED */
-
-static int
+static int
ramap (SCM ra0, SCM proc, SCM ras)
{
long i = SCM_I_ARRAY_DIMS (ra0)->lbnd;