:art: new_object_str (swig helper)

diff --git a/include/import.h b/include/import.h
index eab366a8429f98e87959d675070d17136022ffcf..50434e96dce3786f369f4f67fbfba235e5373dac 100644 (file)
--- a/include/import.h
+++ b/include/import.h
@@ -52,4 +52,9 @@ OP_CHECK(opck_usr_implicit);
 OP_CHECK(opck_new);
 OP_EMIT(opem_new);
 
+ANN2(1,3) static inline M_Object new_object_str(const Gwion gwion, const VM_Shred shred, const m_str str) {
+       struct loc_t_ loc = {};
+  DECL_OO(const Type, t, = str2type(gwion, str, &loc))
+  return new_object(gwion->mp, shred, t);
+}
 #endif