fix assertion on F⌾(⟨⟩⊸⊏) x
This commit is contained in:
parent
42b8420af6
commit
d1d8e8be03
@ -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);
|
||||
|
||||
@ -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 10‿0‿4⥊0 %% 10‿0‿4⥊0
|
||||
%USE eqvar ⋄ (<⟨⟩) {•internal.Keep⌾(𝕨⊸⊏) 𝕩}_eqvar¨ ⟨0‿1, "ab"‿"cd"⟩ %% ⟨0‿1, "ab"‿"cd"⟩
|
||||
|
||||
|
||||
# ⥊
|
||||
|
||||
Loading…
Reference in New Issue
Block a user