fix •internal.Variation

This commit is contained in:
dzaima 2022-06-30 03:05:30 +03:00
parent 859be5efb2
commit 0313b0a0a0

View File

@ -212,8 +212,9 @@ B variation_c2(B t, B w, B x) {
} else thrF("•internal.Variation: Bad type \"%R\"", taga(wc));
if (slice) {
Arr* slice = TI(res,slice)(res, 0, a(res)->ia);
Arr* slice = TI(res,slice)(inc(res), 0, a(res)->ia);
arr_shCopy(slice, res);
dec(res);
res = taga(slice);
}