Fix shape of char⍋num result (was deshaped)

This commit is contained in:
Marshall Lochbaum 2023-07-03 18:14:30 -04:00
parent ec9b875503
commit 4f93b5849b

View File

@ -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);