fully native ⊑

This commit is contained in:
dzaima 2022-08-21 07:58:41 +03:00
parent 505f6869fc
commit 7393c4b663
2 changed files with 2 additions and 5 deletions

View File

@ -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);

View File

@ -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);