From 672b6d95618cb8e88e9b1d17825ad2245885c2cc Mon Sep 17 00:00:00 2001
From: =?utf8?q?J=C3=A9r=C3=A9mie=20Astor?= <astor.jeremie@wanadoo.fr>
Date: Mon, 15 Jun 2020 18:19:12 +0200
Subject: [PATCH] :art: Move compat_func

---
 ast                     |  2 +-
 src/parse/compat_func.h | 18 ++++++++++++++++++
 2 files changed, 19 insertions(+), 1 deletion(-)
 create mode 100644 src/parse/compat_func.h

diff --git a/ast b/ast
index bb6cb30f..0835f974 160000
--- a/ast
+++ b/ast
@@ -1 +1 @@
-Subproject commit bb6cb30ffd3fbc8daccff74ba19f90de7b7a6029
+Subproject commit 0835f9740272e180bc609e82a3c0f80218814be0
diff --git a/src/parse/compat_func.h b/src/parse/compat_func.h
new file mode 100644
index 00000000..f8646a7a
--- /dev/null
+++ b/src/parse/compat_func.h
@@ -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;
+}
-- 
2.43.0