fix •internal.Variation
This commit is contained in:
parent
859be5efb2
commit
0313b0a0a0
@ -212,8 +212,9 @@ B variation_c2(B t, B w, B x) {
|
|||||||
} else thrF("•internal.Variation: Bad type \"%R\"", taga(wc));
|
} else thrF("•internal.Variation: Bad type \"%R\"", taga(wc));
|
||||||
|
|
||||||
if (slice) {
|
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);
|
arr_shCopy(slice, res);
|
||||||
|
dec(res);
|
||||||
res = taga(slice);
|
res = taga(slice);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user