Define UVECTOR and ATOM

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

diff --git a/src/object.c b/src/object.c
index a2a81a62e478134ddd188ec4188c0fbe9a2c869d..ff65f41651060c96e103a875cc06d96c1d6f53e3 100644 (file)
--- a/src/object.c
+++ b/src/object.c
@@ -21,7 +21,7 @@ License along with this file. If not, see
 uint32_t
 list_length (const list_object * o)
 {
-  const pool_object *p = POOL_OBJECT (o->head);
+  const pool_object *p = POOL_OBJECT (o->val.head);
   uint32_t n = 0;
   while (p)
     {