void new_whatsit(int s) { halfword p= new_node(whatsit_node,s); couple_nodes(tail,p); tail= p; }
void tail_append(halfword p) { couple_nodes(cur_list.tail_field, p); cur_list.tail_field = vlink(cur_list.tail_field); }