diff --git a/src/builtins/transpose.c b/src/builtins/transpose.c index f13fad17..8f26eaa6 100644 --- a/src/builtins/transpose.c +++ b/src/builtins/transpose.c @@ -125,13 +125,15 @@ Arr* join_cells(B w, B x, ur k) { // consumes w,x; join k-cells, 𝕨 ∾○⥊ #if SINGELI } else if (csz==1 && re==el_B) { if (we!=xe) goto to_equal_types; - B* wp = TO_BPTR(w); B* xp = TO_BPTR(x); + B w2 = incG(w); B* wp = TO_BPTR(w2); // must least fill of w & x as-is + B x2 = incG(x); B* xp = TO_BPTR(x2); HArr_p p = m_harrUv(ia); // Debug build complains with harrUp interleave_fns[3](p.a, wp, xp, n); for (usz i=0; i>xlw && csz<=8) { // Require CPU-sized cells if (we!=xe) goto to_equal_types;