From 5c59da7376642983897a17f120da2bb4ce5201cc Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Wed, 8 Jun 2022 18:02:29 -0400 Subject: [PATCH] =?UTF-8?q?Handle=20fills=20in=20monadic=20=E2=8E=89=20by?= =?UTF-8?q?=20passing=20to=20the=20runtime?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/builtins/md2.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/builtins/md2.c b/src/builtins/md2.c index 426eb431..d635b0ac 100644 --- a/src/builtins/md2.c +++ b/src/builtins/md2.c @@ -213,6 +213,7 @@ static usz check_rank_vec(B g) { static ur cell_rank(f64 r, f64 k) { // ⎉k over arg rank r return k<0? (k+r<0? 0 : k+r) : (k>r? r : k); } +extern B rt_rank; B rank_c1(Md2D* d, B x) { B f = d->f; B g = d->g; f64 kf; bool gf = isFun(g); @@ -236,6 +237,7 @@ B rank_c1(Md2D* d, B x) { B f = d->f; B g = d->g; usz* xsh = a(x)->sh; usz cam = shProd(xsh, 0, k); + if (cam == 0) { return m2c1(rt_rank, f, g, x); } // TODO usz csz = shProd(xsh, k, xr); ShArr* csh; if (cr>1) { @@ -260,7 +262,6 @@ B rank_c1(Md2D* d, B x) { B f = d->f; B g = d->g; decG(x); return bqn_merge(HARR_O(r).b); } -extern B rt_rank; B rank_c2(Md2D* d, B w, B x) { B f = d->f; B g = d->g; f64 wf, xf; bool gf = isFun(g);