From fd3f483368ec3c52e00260ae2941b6c0552473cf Mon Sep 17 00:00:00 2001 From: Peter Mikkelsen Date: Wed, 11 May 2022 10:21:28 +0000 Subject: Fix more bugs --- functions.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'functions.c') diff --git a/functions.c b/functions.c index f73ff29..2e95316 100644 --- a/functions.c +++ b/functions.c @@ -1404,7 +1404,7 @@ fnDrop(Array *left, Array *right) if(GetSize(left) > GetRank(right)) throwerror(nil, ELength); else if(GetSize(left) == GetRank(right)) - left = fnSame(left); + left = duparray(left); else{ Array *old = left; left = allocarray(AtypeInt, 1, GetRank(right)); -- cgit v1.2.3