diff options
Diffstat (limited to 'libguile/array-map.c')
-rw-r--r-- | libguile/array-map.c | 5 |
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; |