fix ∾˝⎉k refcounting
This commit is contained in:
parent
a9f59b5793
commit
a9fbd0301d
@ -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);
|
shcpy(rsh->a+k+1, xsh+k+2, cr-2);
|
||||||
Arr* r = TI(x,slice)(x, 0, IA(x));
|
Arr* r = TI(x,slice)(x, 0, IA(x));
|
||||||
arr_shSetUG(r, rr, rsh);
|
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 insert_cells_identity(B x, B f, usz* xsh, ur xr, ur k, u8 rtid) {
|
||||||
B id;
|
B id;
|
||||||
|
|||||||
@ -65,6 +65,11 @@
|
|||||||
!"´: Argument must be a list (3‿3 ≡ ≢𝕩)" % +´˘2‿3‿3⥊↕18
|
!"´: Argument must be a list (3‿3 ≡ ≢𝕩)" % +´˘2‿3‿3⥊↕18
|
||||||
!"´: 𝕩 must be a list (3‿3 ≡ ≢𝕩)" % 1+´˘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" % +˝˘˘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 ⋄ ⟨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⟩
|
%USE tcc ⋄ ⟨<, ≍, ⊏, ⥊⟩ {𝕎 _tcc 𝕩}⌜ ⟨<4, ↕5, 4‿5⥊↕20, 4‿5‿6⥊↕120, 2‿3‿4‿5⥊↕120⟩
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user