From 894c56205fbe91818f8f6e24afd2f54a46be2e11 Mon Sep 17 00:00:00 2001 From: dzaima Date: Mon, 2 May 2022 20:35:16 +0300 Subject: [PATCH] =?UTF-8?q?native=20=E2=8C=BE=E2=8D=89?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/builtins/sfns.c | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/src/builtins/sfns.c b/src/builtins/sfns.c index 7dddb2d8..37e7d929 100644 --- a/src/builtins/sfns.c +++ b/src/builtins/sfns.c @@ -1122,9 +1122,6 @@ B reverse_c2(B t, B w, B x) { return withFill(mut_fcd(r, x), xf); } -B reverse_uc1(B t, B o, B x) { - return reverse_c1(t, c1(o, reverse_c1(t, x))); -} extern B rt_transp; B transp_c1(B t, B x) { @@ -1175,9 +1172,7 @@ B transp_c1(B t, B x) { } decG(x); return taga(r); } -B transp_c2(B t, B w, B x) { - return c2(rt_transp, w, x); -} +B transp_c2(B t, B w, B x) { return c2(rt_transp, w, x); } B pick_uc1(B t, B o, B x) { @@ -1292,6 +1287,9 @@ B shape_uc1(B t, B o, B x) { B select_ucw(B t, B o, B w, B x); +B transp_uc1(B t, B o, B x) { return transp_c1(t, c1(o, transp_c1(t, x))); } +B reverse_uc1(B t, B o, B x) { return reverse_c1(t, c1(o, reverse_c1(t, x))); } + void sfns_init() { c(BFn,bi_pick)->uc1 = pick_uc1; c(BFn,bi_reverse)->uc1 = reverse_uc1; @@ -1299,5 +1297,6 @@ void sfns_init() { c(BFn,bi_slash)->ucw = slash_ucw; c(BFn,bi_select)->ucw = select_ucw; // TODO move to new init fn c(BFn,bi_shape)->uc1 = shape_uc1; + c(BFn,bi_transp)->uc1 = transp_uc1; c(BFn,bi_slash)->im = slash_im; }