fix assertion on F⌾(⟨⟩⊸⊏) x

This commit is contained in:
dzaima 2024-07-26 23:24:42 +03:00
parent 42b8420af6
commit d1d8e8be03
2 changed files with 3 additions and 2 deletions

View File

@ -423,7 +423,7 @@ B select_replace(u32 chr, B w, B x, B rep, usz wia, usz cam, usz csz) { // consu
#endif
#define READ_W(N,I) i64 N = (i64)wp[I]; if (RARE(N<0)) N+= (i64)cam
u8 we = TI(w,elType); assert(elNum(we));
u8 we = TI(w,elType); assert(elNum(we) || wia==0);
u8 xe = TI(x,elType);
u8 re = el_or(xe, TI(rep,elType));
Arr* ra;
@ -455,7 +455,7 @@ B select_replace(u32 chr, B w, B x, B rep, usz wia, usz cam, usz csz) { // consu
ra = mut_fp(r);
goto dec_ret_ra;
}
assert(elInt(we));
assert(elInt(we) || wia==0);
w = toI32Any(w);
i32* wp = i32any_ptr(w);

View File

@ -64,6 +64,7 @@ n←500 ⋄ a←↕n ⋄ i←(-n)+↕2×n ⋄ r←⌽(2×n)⥊a ⋄ ! (⌽a) ≡
%USE eqvar 1+((2/5)) _eqvar 10 %% <5+ 10
%USE eqvar 1+((2/5)) _eqvar ˘ 10 %% ˘ <5+ 10
%USE eqvar •internal.Keep((2/5)) _eqvar 10040 %% 10040
%USE eqvar (<) {•internal.Keep(𝕨) 𝕩}_eqvar¨ 01, "ab""cd" %% 01, "ab""cd"
# ⥊