diff options
Diffstat (limited to 'libguile/array-map.c')
-rw-r--r-- | libguile/array-map.c | 13 |
1 files changed, 3 insertions, 10 deletions
diff --git a/libguile/array-map.c b/libguile/array-map.c index 747747a96..c673b4df3 100644 --- a/libguile/array-map.c +++ b/libguile/array-map.c @@ -645,11 +645,7 @@ ramap (SCM ra0, SCM proc, SCM ras) unsigned long k, i1 = SCM_I_ARRAY_BASE (ra1); long inc1 = SCM_I_ARRAY_DIMS (ra1)->inc; ra1 = SCM_I_ARRAY_V (ra1); - ras = SCM_CDR (ras); - if (scm_is_null(ras)) - ras = scm_nullvect; - else - ras = scm_vector (ras); + ras = scm_vector (SCM_CDR (ras)); for (; i <= n; i++, i1 += inc1) { @@ -706,11 +702,8 @@ rafe (SCM ra0, SCM proc, SCM ras) unsigned long k, i1 = SCM_I_ARRAY_BASE (ra1); long inc1 = SCM_I_ARRAY_DIMS (ra1)->inc; ra1 = SCM_I_ARRAY_V (ra1); - ras = SCM_CDR (ras); - if (scm_is_null(ras)) - ras = scm_nullvect; - else - ras = scm_vector (ras); + ras = scm_vector (SCM_CDR (ras)); + for (; i <= n; i++, i0 += inc0, i1 += inc1) { args = SCM_EOL; |