jsource
jsource copied to clipboard
Refactor `GAT0` and friends
In jsrc/verbs/monadic/tally.cpp:
[[nodiscard]] auto
make_scalar_integer(J jt, int64_t k) -> array {
if (xor_replicate_sign(k) <= NUMMAX) {
return !zero_or_one(k) ? refactorme_num(k) : zeroionei(k);
}
array z;
GAT0(z, INT, 1, 0); // TODO: GA -> make_array refactoring
pointer_to_ravel(z)[0] = k; // TODO: set_value(..)
return z;
}