swl
#define swap_long(x) (x = swl(x))
#define swap_long(x) (x = swl(x))
struct regnod *swl;
swl = swptr(t)->swlst;
while(swl)
struct argnod *arg = swl->regptr;
prf(swl->regcom);
swl = swl->regnxt;
#define swap_long(x) (x = swl(x))
#define swap_long(x) (x = swl(x))