From 8ab9401c22502520bf3100f864a306a451e5d44a Mon Sep 17 00:00:00 2001
From: Peter Mikkelsen <petermikkelsen10@gmail.com>
Date: Fri, 28 Jan 2022 19:42:03 +0000
Subject: =?UTF-8?q?Make=20=E2=8D=B3Y=20generate=20correct=20results=20when?=
 =?UTF-8?q?=20Y=20contains=20zeros?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 functions.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'functions.c')

diff --git a/functions.c b/functions.c
index 1479af0..d96deb6 100644
--- a/functions.c
+++ b/functions.c
@@ -585,7 +585,7 @@ fnIndexGenerator(Array *right)
 		if(right->size == 0)
 			return rundfn(L"⊂⍬", nil, nil, nil, nil);
 		else
-			result = rundfn(L"↑,⌾⌿⍳¨⍵", nil, nil, nil, right);
+			result = rundfn(L"⊃⍣(0<≢⍵),⌾⌿⍳¨⍵", nil, nil, nil, right);
 	}else
 		throwerror(nil, ERank);
 	return result;
-- 
cgit v1.2.3