:shirt: Improve lib

diff --git a/src/lib/array.c b/src/lib/array.c
index 2b421af3948ded7fee6b92db1010d3710f74e8e1..3421c361fdfc5efd85a83bcc027232e6fe80c1a3 100644 (file)
--- a/src/lib/array.c
+++ b/src/lib/array.c
@@ -13,6 +13,7 @@
 #include "emit.h"
 #include "import.h"
 #include "operator.h"
+#include "traverse.h"
 #include "parse.h"
 
 struct M_Vector_ {

diff --git a/src/lib/object.c b/src/lib/object.c
index 3a04f52b52cbfb3eeb5f176a06cb69c0801c3d91..6ac47a7d6450d44b214ade7b5ce7831bac613031 100644 (file)
--- a/src/lib/object.c
+++ b/src/lib/object.c
@@ -125,7 +125,7 @@ static inline Type new_force_type(MemPool p, const Type t, const Symbol sym) {
 
 static Type get_force_type(const Env env, const Type t) {
   const size_t len = strlen(t->name);
-  char name[len + STRLEN_FORCE + 1];
+  char name[len + STRLEN_FORCE + 2];
   strcpy(name, t->name);
   strcpy(name + len, STR_FORCE);
   const Symbol sym = insert_symbol(env->gwion->st, name);

diff --git a/src/lib/opfunc.c b/src/lib/opfunc.c
index 18f6293f520f94f86c17116491b8905b95d243e7..9d02745fcd2009dccf94294e1dcac61d4b94af48 100644 (file)
--- a/src/lib/opfunc.c
+++ b/src/lib/opfunc.c
@@ -9,6 +9,7 @@
 #include "object.h"
 #include "import.h"
 #include "emit.h"
+#include "traverse.h"
 #include "parse.h"
 
 static inline m_str access(ae_Exp_Meta meta) {
@@ -64,7 +65,7 @@ OP_CHECK(opck_unary_meta2_uniq) {
   const Exp_Unary* unary = (Exp_Unary*)data;
   CHECK_OO(opck_unary_meta2(env, data))
   if(unary->exp->next)
-    ERR_N(stmt_self(unary)->pos, "fuck!!")
+    ERR_N(exp_self(unary)->pos, "fuck!!")
   return t_int;
 }
 

diff --git a/src/lib/string.c b/src/lib/string.c
index d979ff12a39a1fac727102794b882519b05048c1..f65c4d1fe35934c669bcbe43aaedff31ac9032eb 100644 (file)
--- a/src/lib/string.c
+++ b/src/lib/string.c
@@ -127,7 +127,7 @@ describe_string(Vec4, m_vec4, SZ_VEC4,
   num_digit((m_uint)lhs.y) + num_digit((m_uint)lhs.z) + num_digit((m_uint)lhs.w),,
   "@(%f, %f, %f, %f)%s", lhs.x, lhs.y, lhs.z, lhs.w, rhs ? STRING(rhs) : "")
 describe_string(Object, M_Object, SZ_INT,
-  11 + (rhs ? strlen(STRING(rhs)) : 0), release(lhs, shred),
+  16 + (rhs ? strlen(STRING(rhs)) : 0), release(lhs, shred),
   "%p%s", (void*)lhs, rhs ? STRING(rhs) : "")