Remove redundant isAtm check in constant case of each_c1
This commit is contained in:
parent
b46477450d
commit
6ac8944b06
@ -44,8 +44,8 @@ B each_c1(Md1D* d, B x) { B f = d->f;
|
|||||||
if (isAtm(x)) r = m_hunit(c1(f, x));
|
if (isAtm(x)) r = m_hunit(c1(f, x));
|
||||||
else if (isFun(f)) r = eachm_fn(f, x, c(Fun,f)->c1);
|
else if (isFun(f)) r = eachm_fn(f, x, c(Fun,f)->c1);
|
||||||
else {
|
else {
|
||||||
if (isMd(f)) if (isAtm(x) || IA(x)) { decR(x); thrM("Calling a modifier"); }
|
|
||||||
usz ia = IA(x);
|
usz ia = IA(x);
|
||||||
|
if (isMd(f) && ia>0) { decR(x); thrM("Calling a modifier"); }
|
||||||
MAKE_MUT(rm, ia);
|
MAKE_MUT(rm, ia);
|
||||||
mut_fill(rm, 0, f, ia);
|
mut_fill(rm, 0, f, ia);
|
||||||
r = mut_fcd(rm, x);
|
r = mut_fcd(rm, x);
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user