diff options
Diffstat (limited to 'ramap.c')
-rw-r--r-- | ramap.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -1465,6 +1465,8 @@ SCM array_imap(ra, proc) SCM inds = make_uve(ARRAY_NDIM(ra)+0L, MAKINUM(-1L)); long *vinds = VELTS(inds); int j, k, kmax = ARRAY_NDIM(ra) - 1; + if (kmax < 0) + return aset(ra, apply(proc, EOL, EOL), EOL); for (k = 0; k <= kmax; k++) vinds[k] = ARRAY_DIMS(ra)[k].lbnd; k = kmax; |