From 0313b0a0a03add7e69cf6a91795e3e59d6682e12 Mon Sep 17 00:00:00 2001 From: dzaima Date: Thu, 30 Jun 2022 03:05:30 +0300 Subject: [PATCH] =?UTF-8?q?fix=20=E2=80=A2internal.Variation?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/builtins/internal.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/builtins/internal.c b/src/builtins/internal.c index c7ace48f..e3283b25 100644 --- a/src/builtins/internal.c +++ b/src/builtins/internal.c @@ -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); }