summaryrefslogtreecommitdiffstats
path: root/ramap.c
diff options
context:
space:
mode:
authorBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:24 -0800
committerBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:24 -0800
commit1edcb9b62a1a520eddae8403c19d841c9b18737f (patch)
treebc0a43d9b3905726a76ed6f0528b54275f23d082 /ramap.c
parent5ca6e8e6a4e5c022a6fb5d28f30219c22c99eda8 (diff)
downloadscm-1edcb9b62a1a520eddae8403c19d841c9b18737f.tar.gz
scm-1edcb9b62a1a520eddae8403c19d841c9b18737f.zip
Import Upstream version 5b3upstream/5b3
Diffstat (limited to 'ramap.c')
-rw-r--r--ramap.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/ramap.c b/ramap.c
index b869ff6..25a1df9 100644
--- a/ramap.c
+++ b/ramap.c
@@ -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;