Change amnesiac GC to no GC

More interesting for testing.

Signed-off-by: Kaz Wesley <kaz@lambdaverse.org>

diff --git a/src/main.c b/src/main.c
index 126579f314f24eee260bf6863268df7456d606a3..5ecbcd8352344a389080641efa68a3063ec79775 100644 (file)
--- a/src/main.c
+++ b/src/main.c
@@ -89,14 +89,14 @@ main ()
   // Entire toplevel becomes `for (;;) cf->cont.fn();`
   char buf[512];
   ssize_t n;
+  // no GC (leak everything)
+  ptop = 1;
+  vhp = 1;
+  root = oblist_create (13);
+  globals = vector_create (64);
+  init_standard_env ();
   while ((n = read (STDIN_FILENO, buf, sizeof (buf))) > 0)
     {
-      // mock GC (no object persistence)
-      ptop = 1;
-      vhp = 1;
-      root = oblist_create (13);
-      globals = vector_create (64);
-      init_standard_env ();
       // terminate input
       assert (buf[n - 1] == '\n');
       buf[n - 1] = '\0';