diff --git a/src/builtins/fold.c b/src/builtins/fold.c index 294215b2..bbfb84fb 100644 --- a/src/builtins/fold.c +++ b/src/builtins/fold.c @@ -494,7 +494,7 @@ B insert_cells_join(B x, usz* xsh, ur cr, ur k) { shcpy(rsh->a+k+1, xsh+k+2, cr-2); Arr* r = TI(x,slice)(x, 0, IA(x)); arr_shSetUG(r, rr, rsh); - decG(x); return taga(r); + return taga(r); } B insert_cells_identity(B x, B f, usz* xsh, ur xr, ur k, u8 rtid) { B id; diff --git a/test/cases/cells.bqn b/test/cases/cells.bqn index 50819073..69faab23 100644 --- a/test/cases/cells.bqn +++ b/test/cases/cells.bqn @@ -65,6 +65,11 @@ !"´: Argument must be a list (3‿3 ≡ ≢𝕩)" % +´˘2‿3‿3⥊↕18 !"´: 𝕩 must be a list (3‿3 ≡ ≢𝕩)" % 1+´˘2‿3‿3⥊↕18 !"˝: 𝕩 must have rank at least 1" % +˝˘˘10‿10⥊↕100 +!"˝: 𝕩 must have rank at least 1" % ∾˝⎉¯2 2‿3⥊9 + +{∾˝˘ ⥊⟜(↕×´) 2+↕𝕩}¨ 2‿3‿4‿5 %% ⥊⟜(↕×´)¨ ⟨2‿3,2‿12,2‿12‿5,2‿12‿5‿6⟩ +{∾˝˘ (2+↕𝕩)⥊<"hi"}¨ 2‿3‿4‿5 %% ⥊⟜(<"hi")¨ ⟨2‿3,2‿12,2‿12‿5,2‿12‿5‿6⟩ +{∾˝⎉¯2 ⥊⟜(↕×´) 2+↕𝕩}¨ 3‿4‿5 %% ⥊⟜(↕×´)¨ ⟨2‿3‿4,2‿3‿20,2‿3‿20‿6⟩ %USE tcc ⋄ ⟨2, 20, ¯2, ¯20, 0⟩ {𝕨 ↑_tcc 𝕩 ⋄ 𝕨 ↓_tcc 𝕩}⌜ ⟨<4, ↕5, 4‿5⥊↕20, 4‿5‿6⥊↕120⟩ %USE tcc ⋄ ⟨<, ≍, ⊏, ⥊⟩ {𝕎 _tcc 𝕩}⌜ ⟨<4, ↕5, 4‿5⥊↕20, 4‿5‿6⥊↕120, 2‿3‿4‿5⥊↕120⟩