From 889c520251b68f48d56e8eec71ef1081567cd736 Mon Sep 17 00:00:00 2001 From: dzaima Date: Mon, 12 Sep 2022 18:32:56 +0300 Subject: [PATCH] move slash_im setting --- src/builtins/sfns.c | 2 -- src/builtins/slash.c | 4 ++++ src/load.c | 2 +- 3 files changed, 5 insertions(+), 3 deletions(-) diff --git a/src/builtins/sfns.c b/src/builtins/sfns.c index ae690754..ffb26c30 100644 --- a/src/builtins/sfns.c +++ b/src/builtins/sfns.c @@ -1321,7 +1321,6 @@ B enclose_uc1(B t, B o, B x) { return enclose_im(t, c1(o, m_atomUnit(x))); } -extern B slash_im(B, B); // TODO move to slash.c void sfns_init() { c(BFn,bi_pick)->uc1 = pick_uc1; c(BFn,bi_reverse)->uc1 = reverse_uc1; @@ -1333,7 +1332,6 @@ void sfns_init() { c(BFn,bi_transp)->im = transp_im; c(BFn,bi_take)->ucw = take_ucw; c(BFn,bi_drop)->ucw = drop_ucw; - c(BFn,bi_slash)->im = slash_im; c(BFn,bi_lt)->im = enclose_im; c(BFn,bi_lt)->uc1 = enclose_uc1; } diff --git a/src/builtins/slash.c b/src/builtins/slash.c index 410740ec..858effd5 100644 --- a/src/builtins/slash.c +++ b/src/builtins/slash.c @@ -616,3 +616,7 @@ B slash_im(B t, B x) { } } } + +void slash_init() { + c(BFn,bi_slash)->im = slash_im; +} \ No newline at end of file diff --git a/src/load.c b/src/load.c index a72b8960..bc387339 100644 --- a/src/load.c +++ b/src/load.c @@ -5,7 +5,7 @@ #include "ns.h" #include "builtins.h" -#define FOR_INIT(F) F(base) F(harr) F(mutF) F(fillarr) F(tyarr) F(hash) F(sfns) F(fns) F(arith) F(md1) F(md2) F(derv) F(comp) F(rtWrap) F(ns) F(nfn) F(sysfn) F(inverse) F(load) F(sysfnPost) F(dervPost) F(ffi) F(mmap) F(typesFinished) +#define FOR_INIT(F) F(base) F(harr) F(mutF) F(fillarr) F(tyarr) F(hash) F(sfns) F(fns) F(arith) F(md1) F(md2) F(derv) F(comp) F(rtWrap) F(ns) F(nfn) F(sysfn) F(inverse) F(slash) F(load) F(sysfnPost) F(dervPost) F(ffi) F(mmap) F(typesFinished) #define F(X) void X##_init(void); FOR_INIT(F) #undef F