From 9a0cfa340a5a612d6042c5a44fa976c6d95182f2 Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Sat, 7 Aug 2021 20:25:07 -0400 Subject: [PATCH] Don't allow First of empty or reshaping empty to non-empty --- src/builtins/sfns.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/builtins/sfns.c b/src/builtins/sfns.c index d54624af..d8c386a5 100644 --- a/src/builtins/sfns.c +++ b/src/builtins/sfns.c @@ -131,7 +131,7 @@ B shape_c2(B t, B w, B x) { xf = getFillQ(x); if (xia<=1) { if (xia==0) { - if (xf.u == bi_noFill.u) thrM("⥊: No fill for empty array"); + thrM("⥊: Empty 𝕩 and non-empty result"); dec(x); x = inc(xf); } else { @@ -187,6 +187,7 @@ extern B rt_pick; B pick_c1(B t, B x) { if (isAtm(x)) return x; if (a(x)->ia==0) { + thrM("⊑: Argument cannot be empty"); B r = getFillE(x); dec(x); return r;