Function T

tests/TestGeneric.cpp:822–823

{\r\n\
	cell(<x>{ x; }, <_>{ cdr; });\r\n\
}\r\n\
auto T(generic e0, generic e1) { return cons(e0, e1); }\r\n\
auto T(generic e0, generic e1, generic e2) { return cons(e0, T(e1, e2)); }\r\n\
auto T(generic e0, generic e1, generic e2, generic e3) { return cons(e0, T(e1, e2, e3)); }\r\n\
int match(generic v, generic e0) { *e0 = v; return 1; }\r\n\