From 6ac8944b06496f5405434b10aa5acb674798db86 Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Thu, 18 May 2023 10:32:41 -0400 Subject: [PATCH] Remove redundant isAtm check in constant case of each_c1 --- src/builtins/md1.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/builtins/md1.c b/src/builtins/md1.c index cd3c4fa0..3144d58f 100644 --- a/src/builtins/md1.c +++ b/src/builtins/md1.c @@ -44,8 +44,8 @@ B each_c1(Md1D* d, B x) { B f = d->f; if (isAtm(x)) r = m_hunit(c1(f, x)); else if (isFun(f)) r = eachm_fn(f, x, c(Fun,f)->c1); else { - if (isMd(f)) if (isAtm(x) || IA(x)) { decR(x); thrM("Calling a modifier"); } usz ia = IA(x); + if (isMd(f) && ia>0) { decR(x); thrM("Calling a modifier"); } MAKE_MUT(rm, ia); mut_fill(rm, 0, f, ia); r = mut_fcd(rm, x);