Implement OBLISTs

[muddle-interpreter.git] / src / main.c

diff --git a/src/main.c b/src/main.c
index 6645f6e4564f72f72f67d1bea7949761452be844..c9876ce2c0a6067ad2f3eb6738eab1cffcecf016 100644 (file)
--- a/src/main.c
+++ b/src/main.c
@@ -20,6 +20,7 @@ License along with this file. If not, see
 #include "eval.h"
 #include "print.h"
 #include "object.h"
+#include "oblist.h"
 
 #include <stdio.h>
 #include <sys/mman.h>
@@ -31,6 +32,9 @@ pool_ptr ptop;
 object *vhp_base;
 heap_ptr vhp;
 
+// oblists (move to ASOCs once implemented)
+uvector_object root;
+
 // TODO: store these in current PROCESS
 frame *cf;
 object ret;
@@ -86,6 +90,7 @@ main ()
       // mock GC (no object persistence)
       ptop = 1;
       vhp = 1;
+      root = oblist_create (13);
       // terminate input
       assert (buf[n - 1] == '\n');
       buf[n - 1] = '\0';
@@ -112,6 +117,11 @@ main ()
       // Print the thing
       print_object (&ret);
       printf ("\n");
+      /*
+         // debugging oblists...
+         print_object ((object*) &root);
+         printf ("\n");
+       */
       // Loop!
     }