From 1edcb9b62a1a520eddae8403c19d841c9b18737f Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:05:24 -0800
Subject: Import Upstream version 5b3

---
 ramap.c | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'ramap.c')

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;
-- 
cgit v1.2.3