src/common.hff


1
2
3
4
5
6
7
8
9
10
11
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();
   }
) ]
}