Define UVECTOR and ATOM

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

diff --git a/src/print.c b/src/print.c
index 8f089a3fbd3126615addcf43d9249b5a4065293d..3a5866ad0f29234031a7b28aec51d60434578582 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -27,12 +27,12 @@ License along with this file. If not, see
 static void
 print_vector_body (const vector_object * o)
 {
-  const object *p = HEAP_OBJECT (o->body);
+  const object *p = HEAP_OBJECT (o->val.body);
   if (!p)
     return;
-  if (o->len)
+  if (o->val.len)
     print_object (&p[0]);
-  for (uint32_t i = 1; i < o->len; i++)
+  for (uint32_t i = 1; i < o->val.len; i++)
     {
       printf (" ");
       print_object (&p[i]);
@@ -42,7 +42,7 @@ print_vector_body (const vector_object * o)
 static void
 print_list_body (const list_object * o)
 {
-  const pool_object *p = POOL_OBJECT (o->head);
+  const pool_object *p = POOL_OBJECT (o->val.head);
   if (!p)
     return;
   print_object ((const object *) p);
@@ -59,10 +59,10 @@ print_object (const object * o)
   switch (o->type)
     {
     case EVALTYPE_FIX32:
-      printf ("%d", o->fix32.val);
+      printf ("%d", o->fix32.val.n);
       break;
     case EVALTYPE_FIX64:
-      printf ("%ld", o->fix64.val);
+      printf ("%ld", o->fix64.val.n);
       break;
     case EVALTYPE_LIST:
       printf ("(");