Fix shape of char⍋num result (was deshaped)
This commit is contained in:
parent
ec9b875503
commit
4f93b5849b
@ -387,7 +387,7 @@ B GRADE_CAT(c2)(B t, B w, B x) {
|
|||||||
}
|
}
|
||||||
|
|
||||||
i32* rp; B r = m_i32arrc(&rp, x);
|
i32* rp; B r = m_i32arrc(&rp, x);
|
||||||
|
|
||||||
if (LIKELY(we<el_B & xe<el_B)) {
|
if (LIKELY(we<el_B & xe<el_B)) {
|
||||||
if (elNum(we)) { // number
|
if (elNum(we)) { // number
|
||||||
if (elNum(xe)) {
|
if (elNum(xe)) {
|
||||||
@ -410,7 +410,7 @@ B GRADE_CAT(c2)(B t, B w, B x) {
|
|||||||
}
|
}
|
||||||
} else { // character
|
} else { // character
|
||||||
if (elNum(xe)) {
|
if (elNum(xe)) {
|
||||||
Arr* ra=allZeroes(xia); arr_shVec(ra);
|
Arr* ra=allZeroes(xia); arr_shCopy(ra, x);
|
||||||
decG(r); r=taga(ra); goto done;
|
decG(r); r=taga(ra); goto done;
|
||||||
} else {
|
} else {
|
||||||
w=toC32Any(w); x=toC32Any(x);
|
w=toC32Any(w); x=toC32Any(x);
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user