Rework printer to add vertical padding too

1 files changed, 8 insertions, 1 deletions

diff --git a/main.c b/main.c
index ad84ad3..82c44f5 100644
--- a/main.c
+++ b/main.c
@@ -1,6 +1,7 @@
 #include <u.h>
 #include <libc.h>
 #include <bio.h>
+#include <pool.h>
 
 #include "apl9.h"
 
@@ -17,14 +18,20 @@ main(int argc, char *argv[])
 	globalsymtab = newsymtab();
 	currentsymtab = globalsymtab;
 	traceeval = 0;
+	debugmem = 0;
 
 	ARGBEGIN{
 	case 't':
 			traceeval = 1;
 			break;
+	case 'm':
+			debugmem = 1;
+			mainmem->flags |= POOL_NOREUSE;
+			break;
 	}ARGEND
 
 	while(!off){
+		checkmem("main loop");
 		Rune *input = prompt(L"\t");
 		Datum *result = evalline(input);
 		if(result == nil){
@@ -39,7 +46,7 @@ main(int argc, char *argv[])
 				freearray(result->array);
 			free(result);
 		}
-		print("Unfreed allocations: %d\n", alloccounts);
+		print("Unfreed arrays: %d\n", alloccounts);
 	}
 	exits(nil);
 }