Implement basic reference counting for arrays, which so they

get freed when not in use anymore.

1 files changed, 3 insertions, 0 deletions

diff --git a/main.c b/main.c
index 2e12fff..ad84ad3 100644
--- a/main.c
+++ b/main.c
@@ -35,8 +35,11 @@ main(int argc, char *argv[])
 		}else{
 			if(result[0].shy == 0)
 				print("%S\n", ppdatum(*result));
+			if(result->tag == ArrayTag)
+				freearray(result->array);
 			free(result);
 		}
+		print("Unfreed allocations: %d\n", alloccounts);
 	}
 	exits(nil);
 }