:fire: Add missing function

diff --git a/src/oo/value.c b/src/oo/value.c
index b728e45616edc5d6d07f97ab1c6fec8824c4225d..7b2c587eebb8e37b018a11b0df527005a91f0390 100644 (file)
--- a/src/oo/value.c
+++ b/src/oo/value.c
@@ -28,3 +28,9 @@ ANN Value new_value(MemPool p, const Type type, const m_str name) {
   a->ref = new_refcount(p, free_value);
   return a;
 }
+
+ANN void valuefrom(const Env env, struct ValueFrom_ *from) {
+  from->owner = env->curr;
+  from->owner_class = env->class_def;
+  from->ctx = env->context;
+}