From dddbdcbeb41777c1e98e37281dddd6f3c89a1280 Mon Sep 17 00:00:00 2001
From: lemon <lsof@mailbox.org>
Date: Mon, 8 Aug 2022 19:31:35 +0200
Subject: ok

---
 src/common.hff | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 src/common.hff

(limited to 'src/common.hff')

diff --git a/src/common.hff b/src/common.hff
new file mode 100644
index 0000000..71e3be0
--- /dev/null
+++ b/src/common.hff
@@ -0,0 +1,12 @@
+import "libc.hff";
+
+defmacro assert {
+(ex,s) [ (do
+   if not (ex) {
+      fprintf(stderr, "%s:%d: assertion failed: ", #FILE, #LINE);
+      fprintf(stderr, "`%s'", (s));
+      fprintf(stderr, "\n");
+      abort();
+   }
+) ]
+}
-- 
cgit v1.2.3