Implement NTH.

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

diff --git a/src/object.c b/src/object.c
index af50edaa191905c920704fc29af899f3117bbc08..5b115c0b89ffbcfc78c5b9e249f8488d573aa25d 100644 (file)
--- a/src/object.c
+++ b/src/object.c
@@ -99,3 +99,10 @@ stack_push (vector_object * v)
   v->val.len++;
   return HEAP_OBJECT (--(v->val.body));
 }
+
+object
+uv_get (const uvector_object * o, uint32_t i)
+{
+  return (object)
+  {.type = utype (o),.uv_val = UV_VAL (o->val.body)[i]};
+}