Add a simple monadic ⎕C to make Karl's expression runHEADfront

1 files changed, 1 insertions, 2 deletions

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;
 	}
 }