make ⊢¨ more consistent with other PureIdentFn¨
incl. making ⊢¨ not leak xf under EACH_FILLS
This commit is contained in:
parent
826179c83d
commit
01b1ee3637
@ -43,7 +43,10 @@ B each_c1(Md1D* d, B x) { B f = d->f;
|
||||
if (isAtm(x)) r = m_hunit(c1(f, x));
|
||||
else if (isFun(f)) {
|
||||
u8 rtid = v(f)->flags-1;
|
||||
if (rtid==n_ltack || rtid==n_rtack) return x;
|
||||
if (rtid==n_ltack || rtid==n_rtack) {
|
||||
if (EACH_FILLS) decG(xf);
|
||||
return EACH_FILLS || TI(x,arrD1) || IA(x)==0? x : any_squeeze(withFill(x, bi_noFill));
|
||||
}
|
||||
r = eachm_fn(f, x, c(Fun,f)->c1);
|
||||
} else {
|
||||
usz ia = IA(x);
|
||||
|
||||
@ -271,6 +271,7 @@ w←1‿1⥊1 ⋄ x←2⥊1 ⋄ w‿x <¨↩ ⋄ {! (∾⟨•Repr𝕩,": Expe
|
||||
⊢¨ {a←𝕩 ⋄ 2‿3‿1⥊𝕩} 6⥊<"a" %% 2‿3‿1⥊<"a"
|
||||
⊢¨ {a←𝕩 ⋄ 2‿3⥊⥊𝕩} 2‿3⥊<"a" %% 2‿3⥊<"a"
|
||||
⊢¨ 2‿3⥊<"a" %% 2‿3⥊<"a"
|
||||
%USE tvar ⋄ {•Repr∘𝕩⍟¬⊸! (⊢¨ ≡○(10⊸↑) •internal.PureKeep¨) 𝕩}_tvar¨ ⟨⊔↕2, ⊔↕0, ↕5, ↕0, "hello", ""⟩
|
||||
|
||||
# ⊔
|
||||
!"⊔: ≠𝕨 must be either ≠𝕩 or one bigger (2≡≠𝕨, 3≡≠𝕩)" % 0‿0⊔↕3
|
||||
|
||||
Loading…
Reference in New Issue
Block a user