1 files changed, 14 insertions, 0 deletions
diff --git a/src/errors.ml b/src/errors.ml
new file mode 100755
index 0000000..3751a60
--- /dev/null
+++ b/src/errors.ml
@@ -0,0 +1,14 @@
+
+(** The function is undefined *)
+exception Undefined of UTF8.t * string list
+
+exception TypeError
+
+exception Cycle
+
+let printf formatter = function
+  | Undefined (name, args) -> Format.fprintf formatter
+      "There is no function '%s' with signature %a"
+      (UTF8.to_utf8string name)
+      (Format.pp_print_list Format.pp_print_text) args
+  | _ -> Format.fprintf formatter "#Error"