X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=src%2Fobject.c;h=e64e68eb6001751eb320143a05dedfb93c81ff9a;hb=081a7c4eedd6e6aa9da616ed88c82ab85efdb98f;hp=a2a81a62e478134ddd188ec4188c0fbe9a2c869d;hpb=8d55156675587a770c5654362bcbd3d2a98e4aa9;p=muddle-interpreter.git

diff --git a/src/object.c b/src/object.c
index a2a81a6..e64e68e 100644
--- 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)
     {
@@ -64,3 +64,10 @@ static object rest(const object *lst) {
     return o;
 }
 */
+
+dope_object *
+uv_dope (const uvector_object * o)
+{
+  return (dope_object *) & HEAP_OBJECT (o->val.body)[(o->val.len + 1) / 2 +
+						     1];
+}