Implement OBLISTs

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

diff --git a/src/object.c b/src/object.c
index ff65f41651060c96e103a875cc06d96c1d6f53e3..e64e68eb6001751eb320143a05dedfb93c81ff9a 100644 (file)
--- a/src/object.c
+++ b/src/object.c
@@ -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];
+}