Listing 6

/* ------------------------------------------------------

FUNCTION PUT_FREE_NODE: The steps to release an active
node and add -it to the front of the free list are:

A.  Free the space occupied by the node's string.
   Then insert the node at the start of the free node list.

------------------------------------------------------ */

void put_free_node(Node *pnode)
{
/*A*/   pnode->pfwd = pfree_node;
       pfree_node = pnode;
}

/*  End of File */