From fa4aebbe9c0f217cdfedde9175fdd44f118ceeb2 Mon Sep 17 00:00:00 2001 From: dzaima Date: Thu, 11 May 2023 14:38:15 +0300 Subject: [PATCH] =?UTF-8?q?native=20dyadic=20inverses=20of=20F=CB=9C?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/builtins/md1.c | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/src/builtins/md1.c b/src/builtins/md1.c index 30df3a7e..ee6b947e 100644 --- a/src/builtins/md1.c +++ b/src/builtins/md1.c @@ -153,12 +153,16 @@ static B md1BI_im(Md1D* d, B x) { return ((BMd1*)d->m1)->im(d, x); } static B md1BI_iw(Md1D* d, B w, B x) { return ((BMd1*)d->m1)->iw(d, w, x); } static B md1BI_ix(Md1D* d, B w, B x) { return ((BMd1*)d->m1)->ix(d, w, x); } -B swap_im(Md1D* d, B x) { return isFun(d->f)? TI(d->f,fn_is)(d->f, x): def_fn_is(d->f, x); } +B swap_im(Md1D* d, B x) { return isFun(d->f)? TI(d->f,fn_is)(d->f, x): def_fn_is(d->f, x); } +B swap_iw(Md1D* d, B w, B x) { return isFun(d->f)? TI(d->f,fn_ix)(d->f, w, x): def_fn_ix(d->f, w, x); } +B swap_ix(Md1D* d, B w, B x) { return isFun(d->f)? TI(d->f,fn_iw)(d->f, w, x): def_fn_iw(d->f, w, x); } void md1_init(void) { TIi(t_md1BI,print) = print_md1BI; TIi(t_md1BI,m1_im) = md1BI_im; TIi(t_md1BI,m1_iw) = md1BI_iw; TIi(t_md1BI,m1_ix) = md1BI_ix; + c(BMd1,bi_swap)->iw = swap_iw; + c(BMd1,bi_swap)->ix = swap_ix; c(BMd1,bi_swap)->im = swap_im; }