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));
|
||||
|
||||
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);
|
||||
}
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user