Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/runtime/Mk/mkLeft.c
#include "mk.h" NodePtr nhc_mkLeft(NodePtr a1) { NodePtr n = C_ALLOC(1+EXTRA+1); n[0] = CONSTR(0,1,0); INIT_PROFINFO(n,&dummyProfInfo) n[EXTRA+1] = (Node)a1; return n; }