shithub: femtolisp

Info  •  Files  •  Log  •  Branches

qp tries: embrace asserts

--- a/3rd/fn.h

+++ b/3rd/fn.h

@@ -61,13 +61,8 @@

 	return(Tindex_branch(t->index));

 }

-#ifdef WITH_EXTRA_CHECKS

 #define Tbranch(t) assert(isbranch(t))

 #define Tleaf(t)  assert(!isbranch(t))

-#else

-#define Tbranch(t)

-#define Tleaf(t)

-#endif

 #define Tcheck_get(type, tag, field, expr) \

 	static inline type \