e_right
x->e_right = r;
if( x->e_right != NULL )
free_expr(x->e_right);
if( e->e_right == NULL )
v2 = eval_subtree(e->e_right, &l2);
if( x->e_right != NULL )
x->e_right = rp = fold(x->e_right);