From 8044c560a4eefb8e5226eb812162b3a64ccf9d56 Mon Sep 17 00:00:00 2001 From: dzaima Date: Sat, 1 Jun 2024 16:22:34 +0300 Subject: [PATCH] =?UTF-8?q?faster=20atom=E2=88=BEatom?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/builtins/sfns.c | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/builtins/sfns.c b/src/builtins/sfns.c index 952b27f9..fc1bf449 100644 --- a/src/builtins/sfns.c +++ b/src/builtins/sfns.c @@ -889,7 +889,10 @@ B join_c1(B t, B x) { } } B join_c2(B t, B w, B x) { - if (isAtm(w)) w = m_unit(w); + if (isAtm(w)) { + if (isAtm(x)) return pair_c2(t, w, x); + w = m_unit(w); + } ur wr = RNK(w); if (isAtm(x)) { if (wr==1 && inplace_add(w, x)) return w;