:art: Add compat_func

diff --git a/src/parse/compat_func.c b/src/parse/compat_func.c
new file mode 100644 (file)
index 0000000..f8646a7
--- /dev/null
+++ b/src/parse/compat_func.c
@@ -0,0 +1,18 @@
+#include "gwion_util.h"
+#include "gwion_ast.h"
+#include "gwion_env.h"
+
+ANN m_bool compat_func(const restrict Func_Def lhs, const restrict Func_Def rhs) {
+  Arg_List e1 = lhs->base->args;
+  Arg_List e2 = rhs->base->args;
+
+  while(e1 && e2) {
+    if(e1->type != e2->type)
+      return GW_ERROR;
+    e1 = e1->next;
+    e2 = e2->next;
+  }
+  if(e1 || e2) 
+    return GW_ERROR;
+  return GW_OK;
+}