From 183f64c1f92dcd8744161b4946b9e255d90a6dd8 Mon Sep 17 00:00:00 2001 From: dzaima Date: Wed, 9 Oct 2024 01:14:12 +0300 Subject: [PATCH] =?UTF-8?q?make=20=E2=9F=A8=E2=9F=A9=E2=89=A1=E2=88=BE?= =?UTF-8?q?=E2=9F=A8=E2=9F=A9=20under=20PROPER=5FFILLS?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/builtins/sfns.c | 3 ++- test/cases/prims.bqn | 1 + 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/src/builtins/sfns.c b/src/builtins/sfns.c index 3a1d3d75..9e2ba8ba 100644 --- a/src/builtins/sfns.c +++ b/src/builtins/sfns.c @@ -718,7 +718,8 @@ B join_c1(B t, B x) { ur xr = RNK(x); usz xia = IA(x); if (xia==0) { - B xf = getFillE(x); + B xf = getFillR(x); + if (noFill(xf)) return x; if (isAtm(xf)) { decA(xf); decG(x); if (!PROPER_FILLS && xr==1) return emptyHVec(); diff --git a/test/cases/prims.bqn b/test/cases/prims.bqn index 6e9b5be5..7d7059f7 100644 --- a/test/cases/prims.bqn +++ b/test/cases/prims.bqn @@ -199,6 +199,7 @@ w←1‿1⥊1 ⋄ x←2⥊1 ⋄ w‿x <¨↩ ⋄ {! (∾⟨•Repr𝕩,": Expe ∾3‿3⥊<1‿0‿3⥊0 %% 3‿0‿3⥊0 ∾3‿3⥊<0‿0⥊⟨⟩ %% 0‿0⥊⟨⟩ ⊑1↑⥊∾3‿3⥊<1‿0‿3⥊<"hi" %% " " +∾⟨⟩ %% ⟨⟩ # 𝕨∾𝕩 !"∾: Lengths not matchable (⟨6⟩ ≡ ≢𝕨, 1‿1 ≡ ≢𝕩)" % ("abc"∾"def")∾≍"a"