move slash_im setting
This commit is contained in:
parent
a46ec7343e
commit
889c520251
@ -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;
|
||||
}
|
||||
|
||||
@ -616,3 +616,7 @@ B slash_im(B t, B x) {
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
void slash_init() {
|
||||
c(BFn,bi_slash)->im = slash_im;
|
||||
}
|
||||
@ -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
|
||||
|
||||
Loading…
Reference in New Issue
Block a user