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"