fully native ⊑
This commit is contained in:
parent
505f6869fc
commit
7393c4b663
@ -240,7 +240,6 @@ B shape_c2(B t, B w, B x) {
|
||||
return taga(r);
|
||||
}
|
||||
|
||||
extern B rt_pick;
|
||||
B pick_c1(B t, B x) {
|
||||
if (isAtm(x)) return x;
|
||||
if (RARE(IA(x)==0)) {
|
||||
@ -307,9 +306,8 @@ static B recPick(B w, B x) { // doesn't consume
|
||||
|
||||
B pick_c2(B t, B w, B x) {
|
||||
if (RARE(isAtm(x))) {
|
||||
if (isAtm(w) || RNK(w)!=1 || IA(w)!=0) return c2(rt_pick, w, x); // ugh this is such a lame case that'd need a whole another recursive fn to implement
|
||||
dec(w);
|
||||
return x;
|
||||
if (isArr(w) && RNK(w)==1 && IA(w)==0) { dec(w); return x; }
|
||||
x = m_atomUnit(x);
|
||||
}
|
||||
if (isNum(w)) {
|
||||
if (RNK(x)!=1) thrF("⊑: 𝕩 must be a list when 𝕨 is a number (%H ≡ ≢𝕩)", x);
|
||||
|
||||
@ -387,7 +387,6 @@ void load_init() { // very last init function
|
||||
rt_select = Get(rtObjRaw, n_select ); gc_add(rt_select);
|
||||
rt_slash = Get(rtObjRaw, n_slash ); gc_add(rt_slash);
|
||||
rt_ud = Get(rtObjRaw, n_ud ); gc_add(rt_ud);
|
||||
rt_pick = Get(rtObjRaw, n_pick ); gc_add(rt_pick);
|
||||
rt_take = Get(rtObjRaw, n_take ); gc_add(rt_take);
|
||||
rt_drop = Get(rtObjRaw, n_drop ); gc_add(rt_drop);
|
||||
rt_group = Get(rtObjRaw, n_group ); gc_add(rt_group);
|
||||
|
||||
Loading…
Reference in New Issue
Block a user