diff --git a/src/builtins/slash.c b/src/builtins/slash.c index 0bb765a9..1ecb4937 100644 --- a/src/builtins/slash.c +++ b/src/builtins/slash.c @@ -826,7 +826,7 @@ B slash_im(B t, B x) { rp[sum>0] = sum; rp[0] = xia - sum; r = num_squeeze(r); break; } -#define IIND_INT(N) \ +#define IIND_INT(N, CHECK_RIA) \ if (xp[0]<0) thrM("/⁼: Argument cannot contain negative numbers"); \ usz a=1; while (axp[a-1]) a++; \ u##N max=xp[a-1]; \ @@ -856,32 +856,35 @@ B slash_im(B t, B x) { break; \ } \ usz ria = (usz)max + 1; \ + CHECK_RIA \ i##N* rp; r = m_i##N##arrv(&rp, ria); for (usz i=0; i