From c67dae80fee02f8b4f1d5cbfe9ba486d5ef40a54 Mon Sep 17 00:00:00 2001 From: Peter Mikkelsen Date: Mon, 19 Feb 2024 10:13:26 +0000 Subject: =?UTF-8?q?Add=20a=20simple=20monadic=20=E2=8E=95C=20to=20make=20K?= =?UTF-8?q?arl's=20expression=20run?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- array.c | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'array.c') diff --git a/array.c b/array.c index 71c35f6..41eef5e 100644 --- a/array.c +++ b/array.c @@ -319,7 +319,7 @@ comparearray(Array *a, Array *b, int checkshapes) } for(i = 0; i < a->size && i < b->size; i++){ - int sub = 0; + int sub; switch(GetType(a)){ case AtypeInt: sub = a->intdata[i] > b->intdata[i] ? 1 : a->intdata[i] == b->intdata[i] ? 0 : -1; @@ -381,7 +381,6 @@ fillelement(Array *a) default: print("Can't make fill element of array type %d\n", GetType(a)); exits(nil); - return 0; } } -- cgit v1.2.3