fix 3 ∨ "abc"
This commit is contained in:
parent
b07a32d0da
commit
f02c92ee6a
@ -288,12 +288,14 @@ static NOINLINE B or_SA(B t, B w, B x) {
|
|||||||
return bit_sel(x, m_f64(bqn_or(wf, 0)), m_f64(bqn_or(wf, 1)));
|
return bit_sel(x, m_f64(bqn_or(wf, 0)), m_f64(bqn_or(wf, 1)));
|
||||||
}
|
}
|
||||||
x = num_squeezeChk(x);
|
x = num_squeezeChk(x);
|
||||||
if (TI(x,elType)==el_bit) goto bitsel;
|
u8 xe = TI(x,elType);
|
||||||
|
if (xe==el_bit) goto bitsel;
|
||||||
|
if (!elNum(xe)) return arith_recd(or_c2, w, x);
|
||||||
|
x = toF64Any(x);
|
||||||
|
|
||||||
f64* rp;
|
f64* rp;
|
||||||
B r = m_f64arrc(&rp, x);
|
B r = m_f64arrc(&rp, x);
|
||||||
usz ia = a(x)->ia;
|
usz ia = a(x)->ia;
|
||||||
x = toF64Any(x);
|
|
||||||
orSAc_f64_f64_f64(rp, w.u, tyany_ptr(x), ia);
|
orSAc_f64_f64_f64(rp, w.u, tyany_ptr(x), ia);
|
||||||
decG(x);
|
decG(x);
|
||||||
return r;
|
return r;
|
||||||
|
|||||||
@ -35,28 +35,26 @@
|
|||||||
(<1)+<1 %% <2
|
(<1)+<1 %% <2
|
||||||
@-@ %% 0
|
@-@ %% 0
|
||||||
!"-: Invalid character" % @-1
|
!"-: Invalid character" % @-1
|
||||||
!"+: Unexpected argument types" % @+@
|
{r←•Repr𝕩 ⋄ (⊢!≡´) (r∾": Unexpected argument types") ⋈ @ 0∘𝕏⎊{𝕊: •CurrentError@} @}¨ ⟨+, ×, ÷, ⋆, √, ⌊, ⌈, |, ∧, ∨, ÷⟩
|
||||||
!"×: Unexpected argument types" % @×@
|
{r←•Repr𝕩 ⋄ (⊢!≡´) (r∾": Unexpected argument types") ⋈ 0 0∘𝕏⎊{𝕊: •CurrentError@} @}¨ ⟨ -, ×, ÷, ⋆, √, ⌊, ⌈, |, ∧, ∨, ÷⟩
|
||||||
!"÷: Unexpected argument types" % @÷@
|
{r←•Repr𝕩 ⋄ (⊢!≡´) (r∾": Unexpected argument types") ⋈ @ 0∘𝕏⎊{𝕊: •CurrentError@} 0}¨ ⟨ ×, ÷, ⋆, √, ⌊, ⌈, |, ∧, ∨, ÷⟩
|
||||||
!"⋆: Unexpected argument types" % @⋆@
|
|
||||||
!"√: Unexpected argument types" % @√@
|
%USE var ⋄ a←4⥊@ ⋄ (LV a) {r←•Repr𝕩 ⋄ (⊢!≡´) (r∾": Unexpected argument types") ⋈ @ 0∘𝕏⎊{𝕊: •CurrentError@} 𝕨 V a}⌜ ⟨+, ×, ÷, ⋆, √, ⌊, ⌈, |, ∧, ∨, ÷⟩
|
||||||
!"⌊: Unexpected argument types" % @⌊@
|
%USE var ⋄ a←4⥊@ ⋄ (LV a) {r←•Repr𝕩 ⋄ (⊢!≡´) (r∾": Unexpected argument types") ⋈ 0 0∘𝕏⎊{𝕊: •CurrentError@} 𝕨 V a}⌜ ⟨ -, ×, ÷, ⋆, √, ⌊, ⌈, |, ∧, ∨, ÷⟩
|
||||||
!"⌈: Unexpected argument types" % @⌈@
|
%USE var ⋄ a←4⥊0 ⋄ (LV a) {r←•Repr𝕩 ⋄ (⊢!≡´) (r∾": Unexpected argument types") ⋈ @ 0∘𝕏⎊{𝕊: •CurrentError@} 𝕨 V a}⌜ ⟨ ×, ÷, ⋆, √, ⌊, ⌈, |, ∧, ∨, ÷⟩
|
||||||
!"|: Unexpected argument types" % @|@
|
|
||||||
!"∧: Unexpected argument types" % @∧@
|
%USE var ⋄ a←4⥊@ ⋄ (LV a) {r←•Repr𝕩 ⋄ (⊢!≡´) (r∾": Unexpected argument types") ⋈ (𝕨 V a) 0∘𝕏⎊{𝕊: •CurrentError@} @}⌜ ⟨+, ×, ÷, ⋆, √, ⌊, ⌈, |, ∧, ∨, ÷⟩
|
||||||
!"∨: Unexpected argument types" % @∨@
|
%USE var ⋄ a←4⥊0 ⋄ (LV a) {r←•Repr𝕩 ⋄ (⊢!≡´) (r∾": Unexpected argument types") ⋈ (𝕨 V a) 0∘𝕏⎊{𝕊: •CurrentError@} @}⌜ ⟨ -, ×, ÷, ⋆, √, ⌊, ⌈, |, ∧, ∨, ÷⟩
|
||||||
|
%USE var ⋄ a←4⥊@ ⋄ (LV a) {r←•Repr𝕩 ⋄ (⊢!≡´) (r∾": Unexpected argument types") ⋈ (𝕨 V a) 0∘𝕏⎊{𝕊: •CurrentError@} 0}⌜ ⟨ ×, ÷, ⋆, √, ⌊, ⌈, |, ∧, ∨, ÷⟩
|
||||||
|
|
||||||
|
%USE var ⋄ a←4⥊@ ⋄ b←4⥊@ ⋄ {r←•Repr f←𝕩 ⋄ {(⊢!≡´) (r∾": Unexpected argument types") ⋈ (𝕨 V a) 0∘F⎊{𝕊: •CurrentError@} 𝕩 V b}⌜○LV´ a‿b}⌜ ⟨+, ×, ÷, ⋆, √, ⌊, ⌈, |, ∧, ∨, ÷⟩
|
||||||
|
%USE var ⋄ a←4⥊0 ⋄ b←4⥊@ ⋄ {r←•Repr f←𝕩 ⋄ {(⊢!≡´) (r∾": Unexpected argument types") ⋈ (𝕨 V a) 0∘F⎊{𝕊: •CurrentError@} 𝕩 V b}⌜○LV´ a‿b}⌜ ⟨ -, ×, ÷, ⋆, √, ⌊, ⌈, |, ∧, ∨, ÷⟩
|
||||||
|
%USE var ⋄ a←4⥊@ ⋄ b←4⥊0 ⋄ {r←•Repr f←𝕩 ⋄ {(⊢!≡´) (r∾": Unexpected argument types") ⋈ (𝕨 V a) 0∘F⎊{𝕊: •CurrentError@} 𝕩 V b}⌜○LV´ a‿b}⌜ ⟨ ×, ÷, ⋆, √, ⌊, ⌈, |, ∧, ∨, ÷⟩
|
||||||
|
|
||||||
!"-: Unexpected argument types" % 0-@
|
!"-: Unexpected argument types" % 0-@
|
||||||
!"÷: Unexpected argument types" % 0÷@
|
!"÷: Unexpected argument types" % 0÷@
|
||||||
!"+: Argument must consist of numbers" % +@
|
!"+: Argument must consist of numbers" % +@
|
||||||
!"-: Argument contained non-number" % -@
|
⟨@, "abc", ⟨1,2,+⟩, {⇐}⟩ {(⊢!≡´) (": Argument contained non-number"∾˜•Repr 𝕩) ⋈ 0∘𝕏⎊{𝕊: •CurrentError@} 𝕨}⌜ -‿×‿÷‿⋆‿√‿⌊‿⌈‿|‿¬
|
||||||
!"×: Argument contained non-number" % ×@
|
|
||||||
!"÷: Argument contained non-number" % ÷@
|
|
||||||
!"⋆: Argument contained non-number" % ⋆@
|
|
||||||
!"√: Argument contained non-number" % √@
|
|
||||||
!"⌊: Argument contained non-number" % ⌊@
|
|
||||||
!"⌈: Argument contained non-number" % ⌈@
|
|
||||||
!"|: Argument contained non-number" % |@
|
|
||||||
!"¬: Argument contained non-number" % ¬@
|
|
||||||
!"This function can't be called monadically" % ≤@
|
!"This function can't be called monadically" % ≤@
|
||||||
!"This function can't be called monadically" % ≥@
|
!"This function can't be called monadically" % ≥@
|
||||||
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user